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PROGRAM MODIFICATIONS 


The following is a list of elements names and the modifications 

of each along with a brief description. 

MAIN/V6 - This element is the main routine of the HYDRA and 
FLUIDS program. Code was added to this routine to 
write an optional header on the three output print 
files for identification purpose if multi-runs are 
being executed and outputted. These modifications 
were added to the FLUIDS and HYDRA files. 

TLINE/V6 - This element reads the xnput timeline and controls 

all card and tape input . Code was added to read new 
input variables in the timeline for outputting 
summary print during the non-averaging phase of pro- 
gram execution. These modifications were added to 
the FLUIDS file only. 

PHASE /V6 - This element reads SSFS, SVDS and binary input tapes 
and overlays trajectory and system status data. 

Code was added to calculate the summary print vari- 
ables during the non-averaging phase of program 
execution. These modifications were added to the 
FLUIDS file only. 

SAPUM/V6 - This element averages the data, computes apu fuel 

requirements, prints the timeline profiles, APU fuel 
simimary and writes the output data tape. Code was 
added for the non-averaging phase and additional para- 
meters were added to the output tape format- These 
modifications were added to the FLUIDS file only. 



HINGE/V6 - This element compares angular rates for the flight 

control surfaces against the maximum rate capability 
of the actuators. Code was added to bypass the body 
flap comparison due to rate violations on the input 
trajectory tapes. This modification was added to the 
FLUIDS file only. 
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1. INTRODUCTION 


The purpose of this model is to perform consumables analyses of 
the Space Shuttle orbiter hydraulics/auxiliary power unit (APU) 
subsystem, (see Section 2.2.1 for hardware description), for 
both the OV-101 and OV-102 vehicle configurations. In addition, 
the program is capable of testing for violations of system con- 
straints 'on hydraulic pump flow capacities and aerodynamic control 
surface actuator capabilities. 

A timeline containing altitude, control surface deflection angles, 
rates and hinge-moment loads, thrust vector control gimbal rates 
and main engine throttle settings is used to drive the model. 

This timeline is constructed from the output of one or more tra- 
jectory simulation programs. Flow rates for each hydraulic load, 
discharge flow rates and input shaft horsepower for each of the 
three hydraulic pumps , and fuel usage rates for each of the three 
APU are then calculated. The fuel usage rates are integrated over 
the mission timeline to generate fuel usage profiles. An output 
tape containing the data listed above is generated. This tape may 
be used as input to either plotting packages or other models for 
further analysis. 

The programming was performed by personnel of Lockheed Electronics 
Company- In addition to the author, programming support was pro- 
vided by Diana Wiggins. The system models are based on the models 
used in the computer programs described in References 6 and 7. 
Engineering support was provided by Jim Walker of McDonnel Douglas. 
Technical guidance was provided by Walter Scott of NASA/FM2, The 
technical monitor for this development effort was Chuck Pace of 
NASA/PM2. This document is a revision to the document described in 
Reference 10. This document is a complete replacement for Reference 
10 . 
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2 . PROGRAM DESCRIPTION 


2.1 GENERAL DESCRIPTION 

This program is driven by a mission timeline containing tra- 
jectory data (altitude, control surface deflection angles and 
rates, control surface hinge-moment loads, thrust vector control 
gimbal rates, and main engine throttle settings) which may 
be input from tape (SSPS, SVDS, binary or blocked binary), 
cards or a combination of both. The timeline is controlled by 
card input data consisting of time parameters, trajectory input 
source flags and a mission phase flag. System status data (valve 
status, system pressure modes and APU speeds), transient engine 
controller flow rates and averaged flow rates for the landing 
gear, nose wheel steering and brakes are automatically overlaid 
within the program based on mission phase, throttle settings, 
altitude, landing gear deploy flags and weight on wheels flags. 

The logic used for overlaying this data is given in the subroutine 
PHASE documentation. The user may override the program logic by 
defining his own system status and flow rate data with card 
input. System design data residing in the program may also be 
overridden with card input. 

The input deflection rates for elevens, rudder, speed brake and 
body flap are compared against actuator capabilities. A maximum 
rate capability is computed as a function of surface position, 

i 

hinge-moment load and number of hydraulic systems operating. If 
the input rate exceeds the maximum rate a warning message is 
printed for the user. 

Each load is assigned to a system based on the loss management 
matrix and valve status. Servo, power spool and engine controller 
bypass valve leakages are scaled to the system operating pressure. 
A flow gradient is determined for each load based on the sign of 
the angular rate and the number of hydraulic systems operating. 



Flow rates for each load are computed. Discharge flow rates 
and input shaft horsepower are coirputed for each of the three 
hydraulic pumps. Discharge flow rates are compared against 
guaranteed pump flow capacities and excessive flow rates are 
flagged to the user. 

Up to this point all data points input have been processed. The 
user has the option to continue processing all input data points 
or to average the data computed thus far, flow rates and horse- 
power, over a time interval as specified by card input and continue 
processing with the averaged data. 

APU fuel usage rates are calculated and then integrated over 
time to compute total quantities. 

Tape output consists of load flow rates, system flow rates, pump 
shaft horsepower, altitude, APU fuel remaining, APU speed codes 
and a system configuration code. 

2.2 TECHNICAL DESCRIPTION 

2.2.1 SUBSYSTEM DESCRIPTIONS 

2. 2. 1.1 Hydraulics 

The hydraulic subsystem consists of 3 independent circuits. Each 
circuit may operate in pressurized, depressurized or off modes as 
defined in Table I. Figure 1 shows a schematic of the hydraulic sub- 
system as modeled in this program. Hydraulic power is provided by 
three variable displacement pumps which supply flow at a constant 
discharge pressure up to the maximum design flow. Power is dis- 
tributed to the following hydraulic loads : 

1. Thrust vector control (TVC) actuators - used to position the main 
engines. There are two actuators, pitch and yaw, for each 
engine. Each actuator is equipped with a hydraulically operated 
switching valve which can accept hydraulic power from any one 
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TABLE I. SYSTEM MODES 


MODE 

PRESSURIZED 

DEPRESSURIZED 

OFF 


PUMP DISCHARGE PRESSURE DESIGN 
REQUIREMENTS 

2950 ± 50 PSIG 

500 - 100 PSIG 

0 PSIG 
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of the three systems . Each actuator has an active system 
and two standbys. The switching valves are designed to 
detect a pressure loss in the supplying system and switch 
over to a standby system. 

2. Space Shuttle main engine (SSME) engine controllers - 
controls fuel supply to main engines . There are five valve 
actuators for each engine. Each engine controller can only 
be supplied by one hydraulic system. 

3. Aerodynamic control surfaces (ACS) 

a. Elevens - There are two actuators which activate two 
eleven surfaces, inboard and outboard, for each wing. 

Eleven actuators are also equipped with switching valves. 

b. Rudder/Speed Brake - The rudder control surface consists 
of two panels located on a common hinge-line. The two 
panels provide the rudder function when driven in the same 
direction and provide the speed brake function when 
driven in opposite directions. Three hydraulic motors 

are provided for each function. Each motor is directly 
supplied by one hydraulic system. The rudder and speed 
brake servos are equipped with switching valves and 
may be fed by any one of the three systems, 

c. Body Flap - The body flap also contains three hydraulic 
motors each supplied by one hydraulic system. 

4 . Landing gear 

a. Uplock actuators - used to unlock the gear and initiate 
gear extension. The main landing gear uplocks are supplied 
with switching valves to accept any system but the nose 
landing gear uplock can only be supplied by one system. 

b. Strut actuators - used to retract and extend landing 
gear. These actuators can only be supplied by one 
hydraulic system. 
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5. Wheel brakes - Two hydraulic systems are active on each brake 
with a third system connected by a switching valve available 
for back-up. 

6. Nose wheel steering actuator - used to provide nose wheeling 
steering control during rollout. This actuator can only be 
supplied by one hydraulic system. 

Isolation valves are located in the lines which may be used to 
isolate the landing gear loop, main engine loop or engine 
controllers. 

Only the components of the hydraulic subsystem which are applicable 
to this program have been discussed. Reference 8 contains a 
more detailed and complete description of the hydraulic subsystem. 

2. 2 : 1 . 2 APU 

The APU subsystem consists of three independent power unirs whose 
function is to provide mechanical shaft power to drive the 
hydraulic pumps. Each unit contains a liquid hydrazine fuel 
supply, gas generator, turbine and gear box. Reference 9 contains 
a detailed description of the APU subsystem. 

The APU subsystem is represented in this model by fuel usage rate 
curves giving fuel consumption rates as a function of p\imp shaft 
horsepower and altitude. 

2.2.2 MATH MODELS 

ACS deflections and deflection rates received from SSFS, SVDS and 
blocked binary tapes are referenced to the orbiter fuselage 
reference line (ERL) . The rudder and speed brake deflections and rates 
input from SSPS and SVDS are converted into hinge-line coordinates. 
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Rudder: 


0 = tan 


~1 / tan 


^cos aj 


0 = 


cosa 


2 2 
1 -'COS <})sin a 


Speed Brake: 


0 = 


tan 


-1 I 


icosa 


X 2 


0 = 


_ (j> cosct 


, 2 U\ .2 

1 - cos 1^1 Sin a 


0 

<P 

o 

0 

a 


Hingeline deflection angle - deg 

PRL deflection angle - deg 

Hingeline deflection rate - deg/sec 

PRL deflection angle - deg/sec 

Rudder/Speed Brake hingeiine . 
angle with orbiter -z axis = 34.83° 


For blocked binary input where deflection angles are not available/ 
an approximation is used for both rudder and speed brake. 


cosa 

0 = Hingeline deflection rate - deg/sec 

^ = PRL deflection rate - deg/sec 

a “ Rudder/Speed Brake hingeline 

angle with orbiter - z axis = 34.83° 
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Servo f power spool and engine controller bypass valve leakages 
are scaled to the system operating pressure. 



Q = Leakage GPM 

= Leakage at reference pressure - GPM 
P = System pressure -• -psi 
P^ = Reference pressure = 3000 psi 

A flow rate is computed for each hydraulic load. 


TVCs - and Elevens : 


Q = MAX (6 X QGRAD) , Q, 


PS 


+ Q 


SV 


Q 

5 

QGRAD 

®PS 

®SV 


Flow rate for load - GPM 
Deflection or gimbal rate - deg/sec 
Flow graident - GPM/DEG/SEC 
Power spool leakage “ GPM 
Servo leakage - GPM 


Rudder and Speed Brake motors; 


Q = 


Q = 
6 = 
QGRAD = 
N = 



MAX 


(6 k QGRAD X , 



Flow rate for motor - GPM 
Deflection rate - deg/sec 

Plow gradient for 3 systems pressurized GPM/DEG/SEC 
No of systems pressurized 
Power spool leakage - GPM 


2-5 



Rudder and Speed Brake servos 


Q = Load flow rate - GPM 
Qg^= Servo leakage - GPM 


Body flap motors: 


Q 

Q 

Q 


^LOWER 

Praise 


if 5 > 0 
if S < 0 
if 6 = 0 


Q = Load flow rate - GPM 

6 = Deflection rate - deg/sec 

Q = Average flow rate required to 

lower lower body flap - GPM 

Q = Average flow rate required to 

raise body flap - GPM 


Engine controllers : 

® "" ®TRANS ®SV 

Q = Load flow rate - GPM 

- Transient flow rate ** GPM 

TRANS 

Q___ = Servo leakage ~ GPM 

oV 

Nose gear steering and brakes; 


Q - 
Q = 


®AVG ^SV operation 

Qg^ if not in operation 


Q = Load' flow rate - GPM 

^AVG ” Average flow rate when in operation - GPM 
Qg^ = Servo leakage - GPM 
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Uplocks and struts: 


Q = if in operation 

Q = 0 if not in operation 


Q = Load flow rate " GPM 

^AVG** -Average flow rate when in operation - GPM 


Restrictors : 

^ “ ®AVG 

Q - Load flow rate - GPM 
®AVG~ flow rate - GPM 

Plow rates of hydraulic loads which are downstream of a closed 
isolation valve are reset to zero. 

The switching valve logic is represented by a loss management 
matrix containing an active, 1st standby and 2nd standby system 
for each hydraulic load. 

The active, 1st standby and 2nd standby systems are checked in 
order for a pressurized system. The load is assigned to the 
first system found to he pressurized. If none of the systems 
are pressurized the process is repeated checking for depressurized 
systems . 

The total flow rate for each system is found by summing the 
flow rates of all the loads assigned to that system, 

Qm = SQ, 




Total flow rate for sysrem - GPM 
Load flow rate - GPM 
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Pump efficiencies are computed from curve fit polynomials, 

E = f(Q^, V, P) 

E = Pump efficiency 

Qy = Total system flow rate - GPM 

V = APU speed 

P = System pressure 


Input pump shaft horsepower is then computed. 


HP 


X P 

1714 X E 


HP = Input horsepower 

= Total system flow rate - GPM 
P = System pressure - PSI 

E = Pump efficiency 


APU fuel usage rates for sea level and space conditions are 
computed from curve fit polynomials, 

Ysl = 

Ygp = f(HP) 

« 

= fuel usage rate at sea level - Ibs/hr 

Ygp = fuel usage rate at space - Ibs/hr 

HP = pump input horsepower 


Atmospheric pressure is computed using a curve-fit polynomial. 

^ 14.696 

[f(h)l ^ 

^ALT ~ atmospheric pressure - psi 
h == altitude - ft 
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A linear interpolation with atmospheric pressure is performed to 
find the fuel usage rate at the operating altitude. 

* “ * * ^ALT 

^ ^SP *'■ *■ 14“,6“96 

Y ~ fuel usage rate at operating altitude - Ibs/hr 

y„ = fuel usage rate at space - Ibs/hr 

Ygj^= fuel usage rate at sea level - Ibs/hr 

^ALT~ atmospheric pressure - psi 

Fuel usage rates are integrated over time to compute total 
quantities . 

y = y X At 

y^i = y^p + y 

^REM " ^LOAD - 

y “ fuel used - lbs 
y = fuel usage rate - Ibs/hr 
At = time interval - hrs 
Yrj, = total fuel used - lbs 
Ylqad “ fuel loaded - lbs 
^REM ' fuel remaining - lbs 

Horsepower is also integrated over time to compute energy used, 
e == HP X At 

e = energy - hp-hr 
At = time interval - hr 
HP » piimp input horsepower 
e^ = total energy used - hp-hr 

Coefficients for the curve-fit polynomials are listed in the 
appropriate subroutine documentation. 
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2.2.3 CONSTRAINT VIOLATION TESTING 


When the system flow demands exceed the guaranteed p-ump flow 
capacities, the constant discharge pressure assumption of the 
program becomes invalid and the program output corresponding 
to that flow demand is also invalid. Excessive flow demands 
are flagged in the max rate warning column of the timeline pro- 
file report. 


®GUAR ^ 

If Qq, > ^guar' flag is set 


^GUAR " 9 ^^^^^teed pump flow - GPM 
V = APU speed 

Qip = system flow rate - GPM 

ACS deflection rates received as input are compared against 
actuator capabilities. Eleven, rudder and speed brake rates 
are tested only in cases with an opposing hinge moment load. 
Body flap rates are tested for both aiding and opposing loads. 

Elevens - A maximum surface rate is computed as a function of 
system pressure, surface position and hinge-moment load, 

™o “ sfoff == [^2 '^3 ■ ■*>] 

« = X 

HMq - stall hinge moment - in- lbs 
P - system pressure - psi 
6 - surface position - deg 
HM - hinge moment load - in- lbs 
6 - maximum surface rate - deg/sec 
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Rudder, Speed Brake and Body Flap - a maximum surface rate is 
computed as a function of hinge-moment load and the number of 
hydraulic systems operating using curve-fit equations. 

Coefficients for max rate vs hinge-moment equations are listed 
in the HINGE subroutine documentation. 

The input rates are tested against the maximum surface rates. 

If |Si > warning message is printed for the user. 

6 - input deflection rate - deg/sec 

» 

^max” deflection rate - deg/sec 
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3 . PROGRAM USAGE 


3.1 INPUT DESCRIPTION 

This program can be run ‘with card input alone or a combination 
of cards and tape(s). 

3.1.1 CARD INPUT 

Input cards are in the following format 

Card Column Description 

1-3 Data number 

5-24 Data 

Data numbers are right-justified integers. Alphanumeric data 
must be left- justified. All other data is in floating point. 

A card with 999 in the first three columns will terminate one 


dara set 

and two 999 cards will stop 

the simulation. 

By sett- 

ing 999 

equal to zero gives no summary print. For a 

summary 

print in 

the averaging or non-averaging phase set 999 

equal to 

zero followed by a 999 equal to one. 



3. 1.1.1 

System Design Data 



Data 

Number 

Description 

Power spool leakages 
at 3000 psi for: 

Units 

Default 

1 

SSME ITVC Pitch 

GPM 

1.02 

2 

SSME 1 TVC Yaw 


1.02 

4 

SSME 2 TVC Pitch 


1.02 

5 

SSME 2 TVC Yaw 


1.02 

7 

SSME 3 TVC Pitch 


1.02 

8 

SSME 3 TVC Yaw 


1.02 

10 

Rudder motor 1 


.25 

11 

Rudder motor 2 


.25 

12 

Rudder motor 3 


.25 

14 

Speed Brake motor 1 


.25 

15 

Speed Brake motor 2 


.25 
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Ntmiber 

Description 

Units 

Default 

16 

Speed Brake motor 3 

GPM 

.25 

18 

LO Elevon 


.10 

19 

LI Elevon 


. 50 

20 

W Elevon 


.10 

21 

RI Elevon 

Servo valve leakages at 
3000 psia for: 


.50 

51 

SSMR 1 rpxjc Pitch 


.50 

52 

SSME 1 TVC Yaw 


.50 

53 

SSME 1 Engine Controller 


2.50 

54 

SSME 2 TVC Pitch 


.50 

55 

SSME 2 TVC Yaw 


.50 

56 

SSME 2 Engine Controller 


2.50 

57 

SSME 3 TVC Pitch 


-50 

58 

SSME 3 TVC Yaw 


.50 

59 

SSME 3 Engine Controller 


2.50 

63 

Rudder Servo 


.85 

67 

Speed Brake Servo 


.85 

68 

LO Elevon 


1.0 

69 

LI Elevon 


1.0 

70 

RO Elevon 


1.0 

71 

RI Elevon 


1.0 

75 

LO Brake Module 


.45 

76 

LI Brake Module 


.45 

77 

RO Brake Module 


.45 

78 

RI Brake Module 


.45 

85 

Nose landing gear steering 
Flow gradients for; 

GPM/DEG/SEC 

.27 

101 

SSME 1 TVC Pitch 


3.354 

102 

SSME 1 TVC Yaw 


2.705 

103 

SSME 1 Engine Controller 


1.0 

104 

SSME 2 TVC Pitch 


2.705 

105 

SSME 2 TVC Yaw 


2.705 

106 

SSME 2 Engine Controller 


1.0 
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Data 


Nximber 

Description 

Units 

Default 

107 

SSME 3 TVC Pitch 


2.705 

108 

SSME 3 TVC Yaw 


2.705 

109 

SSME 3 Engine Controller 


1.0 

118 

LO Elevon 


.719 

119 

LI Elevon 


1,493 

120 

RO Elevon 


.719 

121 

RI Elevon 


1.493 


Flow gradients with three 
systems pressurized for: 

GPM/DEG/SBC 


110 

Rudder motor 1 


.685 

111 

Rudder motor 2 


.685 

112 

Rudder motor 3 


.685 

114 

Speed Brake motor 1 (Open) 


1,013 

115 

Speed Brake motor 2 (Open) 


1.013 

116 

Speed Brake motor 3 (Open) 


1.013 

164 

Speed Brake motor 1 (Close) 


1.041 

165 

Speed Brake motor 2 (Close) 


1.041 

166 

Speed Brake motor 3 (Close) 


1.041 


Average flow rates for; 

GPM 


122 

Body flap motor 1 (Lower) 


1,936 

123 

Body flap motor 2 (Lower) 


1,936 

124 

Body flap motor 3 (Lower) 


1.936 

172 

Body flap motor 1 (Raise) 


2.50 

173 

Body flap motor 2 (Raise) 


2,50 

174 

Body flap motor 3 (Raise) 


2.50 

125 

LO Brake Module 


3.546 

126 

LI Brake Module 


3.546 

127 

RO Brake Module 


3.546 

128 

RI Brake Module 


3.546 

129 

L MLG Uplock 


9.194 
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Data 

Number 

Description 

Units 

Default 

130 

R MLG Uplock 

GPM 

9.194 

131 

L MLG Strut 


8.457 

132 

R MLG Strut 


8.457 

133 

NLG Uplock 


1.530 

134 

NLG Strut 


1.828 

135 

NLG Steering 


1.15 

86 

NLG Restrictor 


1.164 

87 

RLG Restrictor 


1.164 

651 

Maximxam system flow rate 
at 100% APU speed 

GPM 

63.0 

652 

Maximum system flow rate 
at 110% APU speed 


69.6 

675 

System pressure for a 
pressurized system 

psi 

3000.0 

676 

System pressure for a 
depressurized system 

psi 

1000.0 


APU fuel loaded 

lbs 


653 

System 1 


350.0 

654 

System 2 


350.0 

655 

System 3 


350.0 


APU unusable fuel 

lbs 


656 

System 1 


30.5 

657 

System 2 


30.5 

658 

System 3 


30,5 

800 

Altitude for landing gear 
arm 

ft 

3000.0 

801 

Altitude for landing gear 
deploy 

ft 

1000.0 

803 

Time from lift-off for 
engine thrust level cut- 
back from 110% to 100% 
(using a negative time 
deletes the 110% thrust 
level for prelaunch) 

hrs 

.0375 

804 

Duration of landing gear 

sec 

1.0 

805 

Duration of landing gear 
strut 

sec 

6.5 
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Data 

N\imber 


Units 


Default 


Description 

810 Engine controller transient GPM 1.0 

flow rate for throttle setting 

changes 

811 Duration of engine controller sec 1.0 

transients 

3. 1.1. 2 System Status Data 

System status data input from cards will override status defaults 
within the program. The documentation of subroutine PHASE 
explains the logic used to determine status defaults. Status 
codes are as follows: 


Valve status 

3! 1. 0 Open 
s= 2.0 Closed 


System mode status 

= 1.0 Pressurized 
= 2.0 Depressurized 
= 3. 0 Off 


APU Speeds 

= 1.0 100% 
=* 2.0 110% 


Data 

Number 

Description 


666 

Status of TVC isolation valves 

667 

Status of landing gear 

isolation valves 

668 

Status of landing gear 

valve “ This a dummy 


valve which simulates the configuration of 
the landing gear control, landing gear up/circ 
and landing gear dump valves 

787 Status of system 1 engine controller bypass 

valve 

Status of system 2 engine controller bypass valve 
Status of system 3 enginer controller bypass valve 


788 

789 
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Data 

Number 

Description 

669 

Mode of system 1 

670 

Mode of system 2 

671 

Mode of system 3 

672 

APU speed of system 1 

673 

APU speed of system 2 

674 

APU speed of system 3 

3. 1.1. 3 

Timeline Data 


Data 

Number 

Description 

Units 

Default 

660 

Start time 

HRS 

- 

661 

Restart time 

HRS 

- 

662 

Trajectory input source 
flag 




= 0.0 Card input only 

(Note; When using card 
input as the only source 
for trajectory data, the 
system status data will 
not be automatically over- 
laid. It must be defined 
with card input) 

= 1.0 SSFS plot tape 
= 2.0 SVDS plot tape 
= 3*0 Binary tape 
= 4.0 Blocked binary tape 

NOTE: Times input from tape are added to the first 
timepoint for the current mission phase. 

663 Input unit 2.0 

659 Delta time to be added to time 

on input tape 


HRS 



Data 


Number 

Description 

Units 

Default 

664 

Mission phase flag 

1.0 Prelaunch 

2 . 0 Ascent 

4.0 On-orbit 

5.0 Mated flight 

6 . 0 Entry 

7.0 Rollout 



665 

Stop time 

hrs 


783 

Averaging flag 

0.0 Data will be 

averaged before 
processing for 
fuel computations 
and data output 
1.0 All data points 

will be processed 



781 

Time interval for 
averaging data 

sec 

1.0 

784 

Output unit (unit 20 
for MOPS plot) 


3.0 

786 

Timeline profiles flag 
1.0 Print profxles 


1.0 


0.0 Suppress print 



Symbolxc 

names for data values on SSFS or 

SVDS plot tapes 

for: 


Data 

Number 

251 

252 

253 

255 

256 

258 

259 
261 
262 


Time 

SSME 1 TVC Pitch angular rate 
SSME 1 TVC Yaw angular rate 
SSME 2 TVC Pitch angular rate 
SSME 2 TVC Yaw angular rate 
SSME 3 TVC Pitch angular rate 
SSME 3 TVC Yaw angular rate 
Rudder angular rate 
Speed brake angular rate 
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Data 
Number ■ 

Description 

263 

LO Elevon angular rate 

264 

LI Elevon angular rate 

265 

RO Elevon angular rate 

266 

RI Elevon angular rate 

267 

Body flap angular rate 

284 

Rudder hinge moment 

285 

Speed brake hinge moment 

286 

LO Elevon hinge moment 

287 

LI Elevon hinge moment 

288 

RO Elevon hinge moment 

289 

RI Elevon hinge moment 

290 

Body flap hinge moment 

307 

Rudder surface deflection 

308 

Speed brake surface deflection 

309 

LO Elevon surface deflection 

310 

LI Elevon surface deflection 

311 

RO Elevon surface deflection 

312 

RI Elevon surface deflection 

313 

Body flap surface deflection 

321 

Altitude 

322 

Vehicle load 

323 

SSME 1 throttle setting 

324 

SSME 2 throttle setting 

325 

SSME 3 throttle setting 

3. 1.1. 4 

Trajectory Data 


Card input for trajectory data can be used alone or in conjunction 
with tape input. Angular and fluid flow rates read from cards 
will be added to rates returned from the PHASE subroutine. 
Altitude, vehicle load and actuator operational flags input from 
cards will override data returned from the PHASE subroutine. 

The documentation of subroutine PHASE explains the logic used 
to overlay trajectory data. 
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Flag codes are as follows: 

Rate flag = 1.0 angular rate in deg/sec 

= 2.0 fluid flow rates in gpm 

Actuator operational flag 

= 1.0 actuator in operation 

= 0.0 actuator not in operation 

Actuator operational flag for body flap 

= 1.0 body flap lower 

-1.0 body flap raise 

= 0*0 body flap not in operation 


Data 

Number 



680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 


SSME 1 TVC pitch rate flag 

SSME 1 TVC pitch rate 

SSME 1 TVC yaw rate flag 

SSME 1 TVC yaw rate 

SSME 1 engine controller rate flag 

SSME 1 engine controller rate 

SSME 2 TVC pitch rate flag 

SSME 2 TVC pitch rate 

SSME 2 TVC yaw rate flag 

SSME 2 TVC yaw rate 

SSME 2 engine controller rate flag 

SSME 2 engine controller rate 

SSME 3 TVC pitch rate flag 

SSME 3 TVC pitch rate 

SSME 3 TVC yaw rate flag 

SSME 3 TVC yaw rate 

SSME 3 engine controller rate flag 

SSME 3 engine controller rate 

Rudder rate flag 


Units 
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Units 


Data 


Number 

Description 


699 

Rudder rate 


700 

Speed brake rate flag 


701 

Speed brake rate 


702 

LO Eleven rate flag 


703 

LO Eleven rate 


704 

LI Eleven rate flag 


705 

LI Eleven rate 


706 

RO Eleven rate flag 


707 

RO Eleven rate 


708 

RI Eleven rate flag 


709 

RI Eleven rate 


710 

Body flap operational flag 


711 

Left brake modules operational 

flag 

712 

Right brake modules oeprational 

flag 

713 

MLG uplocks operational flag 


714 

MLG struts operational flag 


715 

NLG uplock operational flag 


716 

NLG strut operational flag 


717 

NG steering operational flag 


678 

Altitude 


679 

Vehicle load 


3,1.2 

TAPE INPUT 



Tapes in any of the following formats may be used as input to 
the program. 

3. 1,2.1 SSFS Plot Tapes 

A description of the SSFS plot tape format is contained in 
Reference 3 . 
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The program uses the following data from SSPS or SVDS plot 
tapes . 


Description 

Units 

Time 

SEC 

Angular FRL rates 

DEG/SEC 

Hinge - moments 

IN-LBS 

Surface deflections 

DEG 

Altitude 

FT 

Vehicle load 

G 

SSME throttle settings 

% 

2 SVDS Plot Tapes 



A description of the SVDS plot tape format is contained in 
Reference 4 . 

See Section 3. 1.2.1 SSFS plot tapes for description of data 
used from SVDS plot tapes. 

3. 1.2. 3 Binary Tapes 

A description of the binary tape format is shown in Figure 2. 
These tapes are single precision FORTRAN binary tapes, 

3. 1.2. 4 Blocked Binary Tapes 

A description of the blocked binary tape format is shown in 
Figure 3. These tapes are single precision non-Fortran binary 
tapes. Twenty logical records are blocked into one physical 
record. 
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Binary Tape Format 


Word # 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 
20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


Units 

Description 

HRS 

Time 

FT 

Altitude 

G 

Vehicle load 

DEG/SEC 

SSME 1 TVC Pitch angular rate 

DEG/SEC 

SSME 2 TVC Pitch angular rate 

DEG/SEC 

SSME 3 TVC Pitch angular rate 

DEG/ SEC 

SSME 1 TVC Yaw angular rate 

DEG/SEC 

SSME 2 TVC Yaw angular rate 

DEG/SEC 

SSME 3 TVC Yaw angular rate 

DEG/SEC 

LO Eleven angular rate 

DEG/ SEC 

LI Eleven angular rate 

DEG/SEC 

RO Eleven angular rate 

DEG/SEC 

RI Eleven angular rate 

DEG/SEC 

Rudder angular hinge-line rate 

DEG/SEC 

Speed brake angular hinge- line rate 

DEG/SEC 

Body flap angular rate 

IN-LBS 

LO Eleven hinge moment 

IN-LBS 

LI Eleven hinge moment 

IN-LBS 

RO Eleven hinge moment 

IN-LBS 

RI Eleven hinge moment 

IN-LBS 

Rudder hinge moment 

IN-LBS 

Speed brake hinge moment 

IN-LBS 

Body flap hinge moment 
System 1 mode 
System 2 mode 
System 3 mode 
= 1 Pressurized 
= 2 Depressurized 


= 3 Off 


FIGURE 2 
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Blocked Binary Tape Format 


Word # 

Units 

Description 

1 

.2 SEC 

Time 

2 

FT 

Altitude 

3 

G 

Vehicle load 

4 

DEG/SEC 

SSME 1 TVC Pitch angular rate 

5 

DEG/SEC 

SSME 2 TVC Pitch angular rate 

6 

DEG/SEC 

SSME 3 TVC Pitch angular rate 

7 

DEG/SEC 

SSME 1 TVC Yaw angular rate 

8 

DEG/SEC 

SSME 2 TVC Yaw angular rate 

9 

DEG/SEC 

SSME 3 TVC Yaw angular rate 

10 

DEG/SEC 

LO Eleven angular rate 

11 

DEG/SBC 

LI Eleven angular rate 

12 

DEG/SEC 

RO Eleven angular rate 

13 

DEG/SEC 

RI Eleven angular rate 

14 

DEG/SEC 

Rudder angular FRL rate 

15 

DEG/SEC 

Speed brake angular FRL rate 

16 

DEG/SEC 

Body flap angular rate 

20 

IN-LBS 

LO Eleven hinge moment 

21 

IN-LBS 

LI Eleven hinge moment 

22 

IN-LBS 

RO Eleven hinge moment 

23 

IN-LBS 

RI Eleven hinge moment 

24 

IN-LBS 

Rudder hinge moment 

25 

IN-LBS 

Speed brake hinge moment 

26 

IN-LBS 

Body flap hinge moment 

27 

DEG/SEC 

NG Steering angular rate 

28 

- 

Touchdown flag 

29 

- 

Landing gear flag 

30 

- 

Right braking force 

31 

- 

Left braking force 

32 




FIGURE 3 
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3 . 2 OUTPUT DESCRIPTION- 


Output from this program consists of printed reports and data 
tapes . 

3.2.1 PRINTER OUTPUT 

Three printed reports are output from this program. 

1. Hydraulic load data report 

2. Timeline profile of flow rates / pump shaft horsepower and 
fuel remaining 

3 . APU fuel usage summary 

Samples of these reports can be found in Section 5.5 Sample 
Input/Output 

3.2.2 TAPE OUTPUT 


A description of the output tape is shown in Figure 4. System 
configuration codes and APU speed codes are shown in Figure 5. 
The tape is a single precision FORTRAN binary tape. The user 
may request this output by setting data number 784 to the 
output tape number. 
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Output Tape Format 


Word # 


Units 

1 

R 

HRS 

2 

R 

GPM 

3 

R 

GPM 

4 

R 

GPM 

5 

R 

GPM 

6 

R 

GPM 

7 

R 

GPM 

8 

R 

GPM 

9 

R 

GPM 

10 

R 

GPM 

11 

R 

GPM 

12 

R 

GPM 

13 

R 

GPM 

14 

R 

GPM 

15 

R 

GPM. 

16 

R 

GPM 

17 

R 

GPM 

18 

R 

GPM 

19 

R 

GPM 

20 

R 

GPM 

21 

R 

GPM 

22 

R 

GPM 

23 

R 

GPM 

24 

R 

GPM 

25 

R 

GPM 

26 

R 

GPM 

27 

R 

GPM 

28 

R 

GPM 

29 

R 

GPM 

30 

R 

GPM 

31 

R 

GPM 


Description 

Time 

Flow Rates For; 

SSME 1 TVC Pitch 

SSME 1 TVC Yaw 

SSME 1 Engine Controller 

SSME 2 TVC Pitch 

SSME 2 TVC Yaw 

SSME 2 Engine Controller 

SSME 3 TVC Pitch 

SSME 3 TVC Yaw 

SSME 3 Engine Controller 

Rudder Motor #1 

Rudder Motor #2 

Rudder Motor #3 

Rudder Servo 

Speed Brake Motor #1 

Speed Brake Motor #2 

Speed Brake Motor #3 

Speed Brake Servo 

LO Elevon 

LI Elevon 

RO Elevon 

RI Elevon 

Body Flap Motor #1 

Body Flap Motor #2 

Body Flap Motor #3 

LO Brake Module 

LI Brake Module 

RO Brake Module 

RI Brake Module 

L MLG Uplock ■ 

R MLG Uplock 


FIGURE 4 
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Word # 


Units 

Description 

32 

R 

GPM 

L MLG Strut 

33 

R 

GPM 

R MLG Strut 

34 

R 

GPM 

NLG Uplock 

35 

R 

GPM 

NLG Strut 

36 

R 

GPM 

NLG Steering 

37 

R 

GPM 

NLG Restrictor 

38 

R 

GPM 

RLG Restrictor 
Total Plow Rates For: 

39 

R 

GPM 

System #1 

40 

R 

GPM 

System #2 

41 

R 

GPM 

System #3 

Pump Shaft Horsepower For 

42 

R 

‘HP 

System #1 

43 

R 

HP 

System #2 

44 

R 

HP , 

System #3 

45 

I 


System Configuration Code 
APU Speed Code For: 

46 

I 

«•** 

System 1 

47 

I 

- 

System 2 

48 

I 


System 3 

49 

R 

G 

Vehicle Load 

50 

R 

FT 

Altitude 

APU Fuel Remaining For; 

51 

R 

LBS 

System 1 

52 

R 

LBS 

System 2 

53 


LBS 

System 3 


FIGURE 4 (continued) 
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Output Codes 


System 

Configuration 

Code System 1 System 2 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 


P 

P 

P 

P 

P 

P 

P 

P 

P 

D 

D 

D 

D 

D 

D 

D 

D 

D 

0 

0 

0 

0 

o 

0 

0 

o 

o 


p 

p 

p 

D 

D 

D 

O 

0 

0 

P 

P 

P 

D 

D 

D 

0 

O 

O 

P 

P 

P 

D 

D 

D 

0 

0 

0 


System 3 


P “ Pressurized 
D = Depressurized 
O = Off 


APU Speed Code 


APU Speed 


1 


100 % 


2 


110 % 


FIGURE 5 
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3,3 


RUN PREPARATION 


See Figure 6 for a sample deck set up. 
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7/8 XQT MAIN 
IN A 


SI 


7/8 XQT CUR 

7/8 RW ASG C=OUTPUT TAPE 
7/8E ASG B=INPUT TAPE 

7/8R ASG A=»PCF TAPE 

7/8 Z RUN 

(Front of <J@cfe) 

FIGURE 6 
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4 . EXECUTION CHARACTERISTICS 


This program requires 15,339 decimal locations in core. The 
execution time varies with the mission length and input sample 
frequency. A 28 minute entry with a sample frequency of 50 
milliseconds required 15 minutes of execution time. 
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5 . REFERENCE INFORMATION 


5.1 GENERAL PLOW CHART 
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B 


CALL AC 

1 

:tdat , 

- COMPUTE FOR EACH LOAD 

1. SYSTEM ASSIGNMENT 

2. LEAKAGES 

3. FLOW GRADIENT 



CALL POWER 

COMPUTE PLOW RATES FOR 
EACH LOAD 

COMPUTE PLOW RATES FOR EACH 
SYSTEM 

TEST SYSTEM FLOW RATES 
AGAINST PUMP CAPACITIES 
COMPUTE PUMP SHAFT HORSEPOWER 
FOR EACH SYSTEM 




CALL SAPUM 

AVERAGE DA' 
COMPUTE API 
WRITE time: 
WRITE OUT^l 
WRITE FUEL 

EA 

J FUEL USED 
LINE PROFILES 
JT TAPE 

USAGE PROFILES 



T 



c 
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5.2 ACTUATOR NAME - NUMBER CORRELATION 


ACTUATOR NO. 


ACTUATOR NAME 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


SSME 1 TVC Pitch 

SSME 1 TVC Yaw 

SSME 1 Engine Controller 

SSME 2 TVC Pitch 

SSME 2 TVC Yaw 

SSME 2 Engine Controller 

SSME 3 TVC Pitch 

SSME 3 TVC Yaw 

SSME 3 Engine Controller 

Rudder 

Speed Brake 

LO Elevon 

LI Elevon 

RO Elevon 

RI Elevon 

Body Flap 

Left Brake Modules-^ — 
Right Brake Modules 
MLG Uplocks 
MLG Struts 
NLG Uplock 
NLG Strut 
NG Steering 
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5.3 HYDRAULIC LOAD NAME 

LOAD NO 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


NUMBER CORRELATION 


LOAD NAME 

SSME 1 TVC Pitch 

SSME 1 TVC Yaw 

SSME 1 Engine Controller 

SSME 2 TVC Pitch 

SSME 2 TVC Yaw 

SSME 2 Engine Controller 

SSME 3 TVC Pitch 

SSME 3 TVC Yaw 

SSME 3 Engine Controller 

Rudder motor 1 

Rudder motor 2 

Rudder motor 3 

Rudder servo 

Speed Brake motor 1 

Speed Brake motor 2 

Speed Brake motor 3 

Speed Brake servo 

LO Eleven 

LI Elevon 

RO Elevon 

RI Elevon 

Body flap motor 1 

Body flap motor 2 

Body flap motor 3 

LO Brake Module 

LI Brake Module 

RO Brake Module 

RI Brake Module 

L MLG Uplock 
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LOAD NO 


LOAD NAME 


30 

R MLG Uplock 

31 

L MLG Strut 

32 

R MLG Strut 

33 

NLG Uplock 

34 

NLG Strut 

35 

NLG Steering 

36 

NLG Restrictor 

37 

RLG Restrictor 


5.4 SUBROUTINE DOCUMENTATXON 


In the following section, each 
NAME 

Subroutine ACTDAT 
Subroutine HINGE 
Subroutine PHASE 
Subroutine POWER 
Subroutine Si^UM 
Subroutine SYSDAT 
Subroutine TITLE 
Subroutine TLINE 
Subroutine TREAD 


element is individually documented. 

PAGE NO. 

5r6 

5-12 

5-18 

5-25 

5-31 

5-38 

5-41 

5-43 

5-47 
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SUBROUTINE ACTDAT 


Identification 


Name/Title 

Author/Date 

Organization/Installation 
Machine Identification 
Source Language 


~ ACTDAT 

E. Taylor/October 1975 

- LEC for MPAD-JSC 

- Uni vac 1108 

- FORTRAN V 


Purpose 

Subroutine ACTDAT computes leakage flow rates and flow gradients 
for the hydraulic loads. 


Usage 

Calling Sequence 
CALL ACTDAT 
Data In/Out 

Variables in labeled common are listed in Appendix A 


Block Name 

Input 

Output 

/TARRAY/ 

T(IOOO) 


/RATES/ 

RATE (NA) 


/NAMES/ 

lACTNO (NL) 


/LKGS/ 

PSLKG(NL) 

XPSLKG{NL) 


svlkgCnl) 

XSVLKG (NL) 

/LMMTRX/ 

IPTR(3,3,3) 

ICODE(27,NL) 

ISOV(NL) 

lASGN (NL) 

/CONF/ 

ISYS(3) 
IVALVE (3) 
NOS 

P(3) 

/GRAD/ 

FGRAD(NL,2) 

FLGRAD (NL) 
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storage 


Coding occupies 365g (245 j^q) locations. Internal data occupies 
4 I 3 (33^„) locations. 

Method 

Local Variables 


Variable 

Name 

IPOINT 

NA 

NL 

PIN 


I 

I 

I 

R 


Units 


PSI 


Description 

System configuration code 
No. of actuators 
No. of loads 
Reference pressure for 
leakages 


Model 


The system assignment for each load is determined from the loss 
management matrix and the status of the isolation valves and 
landing gear circuitry. 


Load leakages are computed as follows : 


®SV ^SV ^ 
o 




Qg^ = Load servo valve leakage at P^^ GPM, if load 
° bypass valve is open 

Qg^ = Load bypass flow at GPM, if load bypass 
° valve is closed 
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Load power spool leakage 'at GPM 

System pressure, psi 
Reference pressure = 3000 psi 
Load servo valve leakage, GPM 
Load power spool leakage, GPM 


Flow gradients for each load are computed as follows; 


QGRAD = 0 


When; 

1. The system to which the load 

2, The system to which the load 
This applies only to rudder. 


is assigned is off, 
is assigned is depressurized, 
speed brake and body flap motors. 


QGRAD = QGRAD 


Pos (Neg) 


QGRADp^g (Neg) ” Load flow gradient for positive 

(negative) rates 


When; 

The corresponding actuator has a positive (negative) angular 
rate. 

The flow gradients for rudder and speed brake motors are 
further adjusted by the equation. 

QGRAD = QGRAD X |- 
N = Na of systems pressurized 
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ACTDAT 


V__ ^ 
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SET RATES TO A DISCREET 
1,0 OR -1 FOR LOADS FOR 
WHICH ONLY AVERAGED FLOW 
RATE DATA IS AVAILABLE 


J 

1 

coMPua 

GRADIENTS 

— 

’E PLOW 

FOR LOADS 
— 
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SUBROUTINE HINGE 


Identification 


Name/Title 

Author/Date 

Organization/Ins tallation 
Machine Identification 
Sonrce Language 


- HINGE 

E. Taylor/October 1975 
~ LEG for MPAD-JSC 

- Univac 1108 

- FORTRAN V 


Purpose 

Subroutine HINGE compares angular rates for the flight control 
surfaces against the maximum rate capability of the actuators. 


Usage 

Calling Sequence 


CALL HINGE 


Data In/Out 

Variables in labeled common are listed in Appendix A 


Block Name 


/RATES/ 


/CONF/ 

/NAMES/ 

/LMMTRX/ 


Input 

RATE (NA) 
HM(NA) 

DEF (NA) 

NOS 
P (3) 

lACTNO (NL) 
lASGN(NL) 


Output 
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storage 


Coding occupies 715g (461^^) locations. Internal data occupies 
223g (147 ^q) locations. 

Method 

Local Variables 


Name Type 


Units 


Description 


NA 

I 

NL 

I 

RATMAX 

R 

STLHM 

R 


- Number of actuators 

Number of loads 
DEG/SEC Maximum rate 

IN-LB Stall hinge moment 


Model 


An aiding (opposing) load is assumed if the sign of the hinge 
moment and rate are equal (not equal) for the elevens, rudder 
and body flap. For the speed brake an aiding (opposing) load 
is assumed if the sign of the rate is negative (positive) 

The maximtam rates are calculated as follows; 


HM 

o 




2900 


INBOARD ELEVONS 


* 0.956 * 10® * 


6 = 32.97 


- OPPOSING LOADS 
COS [l. Oil* (-7. 42 - 6)} 
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OUTBOARD ELEVONS - OPPOSING LOADS 
HMq = ^ Iq -x 0.4595 X 10^ x COS [o.995 x (~8.6 - 6)] 

6 = 33.11 X 

HM = hinge moment load - in- lbs 

HM^ = stall hinge moment - in- lbs 

P = system pressure - psi 

5 “ surface position - deg 

♦ 

6 = max rate - deg/sec 

RUDDER AND SPEED BRAKE - OPPOSING LOADS 

6 = a^ |hm| + a2 

BODY FLAP - AIDING AND OPPOSING LOADS 

a = * [^3<^4 - i™iii 

g 

HM = Hinge moment load ~ in- lbs x 10 
0 

6 = Max rate - deg/sec 

If the magnitude of the angular rate exceeds the maximum rate 
calculated, the following message is printed 

Actuator Name angular rate input X.XX DEG/SEC exceeds maximum 
allowable rate X.XX DEG/SEC at X.XX hrs. 

No comparisons are made for aiding loads on the elevens, 
rudder and speed brake. 

The hinge moment vs max rate curves were based on data received 
informally from Rockwell. 
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COEFFICIENTS FOR RUDDER AND SPEED BRAKE 


HINGE MOMENT VS MAX RATE CURVES 


Eqn 


^2 

1 

-35.588235 

( 

27,047058 

2 

-71.176470 

54.094117 

3 

-106.764700 

81.141174 

4 

-11.296296 

26.207306 

5 

-22.592592 

52.414813 

6 

-33.888888 

78.622218 


1 ) 

2 ) 

3) 

4) 

5) 

6) 


Rudder, 1 system pressurized 
Rudder, 2 systems pressurized 
Rudder, 3 systems pressurized 
Speed brake, 1 system pressurized 
Speed brake, 2 systems pressurized 
Speed brake, 3 systems pressurized 


FIGURE 7 
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COEFFICIENTS FOR BODY FLAP 


HINGE MOMENTVS MAX RATE CURVES 


Eqn 

^1 

^2 

^3 


5 

1 

-.1285543 

.0165232 

9.0381008 

1.3856317 

4.5190504 

2 

-.1283966 

.0164856 

2.0565236 

1.3981675 

1.0282618 

3 

-.09473478 

.0090125 

.9216732 

1.4121217 

.4608366 

4 

1,4058356 

1.9763737 

-4.1202264 

.4793893 

2.0601132 

5 

.7925523 

.6281391 

-1,1173654 

.56156701 

.558677 

6 

.56952602 

.3243598 

-.5227108 

.62047078 

.2613554 


1) Body flap, opposing load, 1 system pressurized 

_ 2) Body flap, opposing load, 2 systems pressurized 

3) Body flap, opposing load, 3 systems pressurized 

4) Bod y flap, aiding load, 1 system pressurized 

5) Body flap, aiding load, 2 systems pressurized 

6) Body flap, aiding load, 3 systems pressurized 


FIGURE 8 
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CHECK 

SPEED BRAKE 
RATES 
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SUBROUTINE PHASE 


Identification 


Name/Title 
Author /Date 

Organization/Installation 
Machine Identification 
Source Language 


- PHASE 

- E. Taylor/October 1975 

- LEG for MPAD-JSC 

- Uni vac 1108 

- FORTRAN V 


Purpose 

Subroutine PHASE reads SSPS, SVDS and binary input tapes and 
overlays trajectory and system status /data. 


Usage 

Calling Sequence 


CALL PHASE 


Data In/Out 


Variables in labeled common are listed in Appendix A 


Block Marne 


Input 


Output 


/CONF/ 


/TARRAY/ T(IOOO) 

/TRAJ/ 


ISYS{3) 

I VALVE (3) 

IAPUSD(3) 

IBYPV(3) 

WRT(75) 

lETP 
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storage 


Coding occupies 1206g (646 ^q) 
1126g (598^p) locations. 

Method 

Local Variables 

locations. Internal data occupies 

Name 


Units 

Description 

ALPHA 

R 

DEG 

Rudder /Speed Brake hingeline angle 
with Orbiter- 2-axis 

ALRAD 

R 

RAD 

Rudder/Speed Brake hingeline angle 
with Orbiter- 2-axis 

COSAL 

R 

- 

COS (ALPHA) 

COSPH 

ECTRAN(I) 

R 

r 


COS (PHI) 

1=1,3 

R 

HRS 

Start time of engine controller 
transient 

IPHASE 

I 

- 

Mission phase flag 

ISYM 

A 


Symbolic names on SSFS and SVPS 
input tapes 

ITYPE 

I 

- 

Input type flag 

lUNIT 

I 

- 

Input unit 

IWOW 

I 

- 

Touchdown flag 

LPHASE 

I 

- 

Last mission phase 

LTYPE 

I 

- 

Last input type 

LUNIT 

I 

- 

Last input unit 

PHI 

R 

RAD 

Rudder/Speed Brake deflection angle 

PHSTRT 

R 

HRS 

Start time for current mission 
phase 

SINAL 

R 

- 

SIN (ALPHA) 

THROTL(I) 

1=1,3 

, R 

% 

Last throttle setting 

TLGDWN 

R 

HRS 

Start time for landing gear deploy 
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Name 

Soag. 

Units 

Description 

T804 

R 

HRS 

Duration of uplock transient 

T805 

R 

HRS 

Duration of strut transient 

T811 

R 

HRS 

Duration of engine controller transient 


Model 

The following logic is used to overlay trajectory data; 

Engine controller transients are added for each throttle 
setting change. The duration and flow rate of these transients 
are controlled by card input. 

Averaged flow rates for the landing gear uplock and strut 
actuators are added during landing gear deployment- The 
duration of these transients is controlled by card input. 

The strut transient immediately follows the uplock transient. 

Averaged flow rates for the brake modules and nose gear steering 
actuators are added after touchdown. 

The following logic is used to determine system status defaults; 

SSME isolation valves are initially open, then closed after 
MPS purge. 

Landing gear isolation valves are initially closed, then 
opened at landing gear arm. 

Landing gear deploy circuitry status is switched at landing gear 
deploy. 

Engine controller bypass valves remain open. 

All systems are pressurized. 
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APU speeds are switched to 110% at lift-off, -30 seconds 
then cut-back to 100% at a time controlled by card input. 

Rudder and Speed Brake deflection angles and rates are con- 

I 

verted from FRL to hinge-line using the equations below: 

For SSFS and SVDS input; 


RUDDER 



Speed Brake 




cosa 



For blocked binary input: 
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8 = Rudder/Speed Brake hingeline deflection angle 
<f> = Rudder/Speed Brake FRL deflection angle 

9 = Rudder/Speed Brake hingeline angular rate 
I = Rudder/Speed Brake PRL angular rate 

a = Rudder/Speed Brake hingeline angle with orbiter 
“Z -axis = 34 .83° 

The Rudder Speed Brake conversion equations were derived by 
Jim Walker/MDAC. 
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PHASE 



ADJUST 

TIME 


OVERLAY ENGINE 

CONTROLLER 

TRANSIENTS 


OVERLAY RATES 
FOR LANDING 
GEAR 
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SUBROUTINE POWER 


Identification 


Name/Title 

Author/Date 

Organization/Ins tallation 
Machine Identification 
Source Language 


- POWER 

- E. Taylor/October 1975 
LEG for MPAD-JSC 

Uni vac 1108 

- FORTRAN V 


Purpose 

Sxibroutine POWER computes the power requirements and tests system 
flow rates against pump capacities. 

Usage 


Calling Sequence 


CALL POWER 
Data In/Out 


Variables in labeled 

Block Name 

/TARRY/ 

/TIMES/ 

/LMMTRX/ 

/RATES/ 

/NAMES/ 


/GRAD/ 


common are listed 

Input 

T(IOOO) 

NOL 

lASGN CNL) 
RATE (NA) 

ALT 

lACTNO (NL) 
NMODE{3) 
ISPED C2) 
FLGRAD (NL) 


in Appendix A 

Output 
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Block Natne 


Output 


/CONF/ 


/LKGS/ 

/OOTPDT/ 


Storage 


Input 

ISYS(3) 
lAPUSDO) 

TP 
P(3) 

XPSLKG (NL) 

XSVLKG(NL) 

FLRT (NL) 
TFLRT(3) 
PWR(3) 


Coding occupies 474g (316, «) locations. Internal data occupies 


326g (214 ^q) locations. 

Method 

Local Variables 

Name Type Units 

CF(I, 1,1,1) ,1-1,7 R 

CF(I,2,1,1) ,J=1,5 R 

CF(I,1,1,2) ,1=1,7 R 
CP(I,2,1,2) ,1=1,5 R 

CP(I, 1,2,1) ,1=1,4 R 


Description 

Coefficients for pump efficiency 
equations for pressurized system 
100% APU Speed 
Flow Rate ^ 17,5 GPM 
Flow Rate > 17.5 GPM 
110% APU Speed 
Flow Rate £ 17.5 GPM 
Flow Rate > 17.5 GPM 

For depressurized system: 

100% APU Speed 
Plow Rate < 4 GPM 
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j.vaiuc: 


Units 


'Type 


ISAT{I) ,1=1,3 I 

IPPLT I 
NA I 
NL I 
PEFF R 


Description 

Flag to indicate max flow rate 
has been exceeded for system 
Unit for power plot tape 
No. of actuators 
No. of loads 

Calculated pump efficiency 


Model 

The fluid flow rate for each load is calculated from the 
equation 

Q = MAX [C5 X QGRAD),Qpg] + Qg^ 


Q 

« 

6 


QGRAD = 

^PS 

^SV 


Load fluid flow rate, GPM 
Load angular rate, DEG/SEC 
Load flow gradient, GPM/deG/SEC 
Load power spool leakage , GPM 
Load servo valve leakage, GPM 


The total fluid flow rate per system is found by summing the 
flow rates of the loads assigned to that system. A warning 
flag will appear on the printout if the system's maximum flow 
rate has been exceeded. 


The pump shaft. horsepower is computed as follows s 



P X Q 
1714.0 X E 
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Q = System fluid flow rate, GPM 

E = Pvunp efficiency 

P - System pressure, PSI 

P = System power, HP 


If pump efficiency data is not available the following message 
is printed and the power is set to zero , 

No pump efficiency data available. Flow rate = XXX. XX. 

APU speed = XXX % . MODE = XXX 

Hydraulic pvimp efficiency in the pressurized mode is based 
on data from Reference 5. Hydraulic pump efficiency in the 
depressurized mode is based on data from a Rockwell Hydraulics 
Intergroup Data Response dated November 6, 1974. 
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6Z- 


COEFFICIENTS FOR PUMP EFFICIENCY CURVES 


Eqn 


^1 

^2 

^3 

^4 

^5 

^6 

1 

2.4540855E-3 

1.5067633E-1 

-2.024895E-2 

2.0384553E-3 

P- 

-1.3318408E-4 

4.8642687E-6 

-7.429099B-8 

2 

4.2472454E-*1 

2.59U321E-2 

-6.2899454E-4 

7.4287632E-8 

-3.5156554E-8 

0.0 

0.0 

3 

1.3046033E-3 

1.4074945E-1 

-1.8112688E-2 

1.7790823E-3 

'•1.1461501E-4 

4.1468731E-6 

“6.2860823E-8 

4 

3.9355880E-1 

2.7104849E'*2 

~6.604081lE«-4 

7.7603971E-6 

-3.6055649E-8 

0.0 

0.0 

5 

1.727929657E-4 

7.431142388E-2 

-5.439551964E-3 

4.843641759E-4 

0.0 

0.0 

0.0 


1) 100% APU Speed, Pressurized System, Plow Rate £ 17.5 GPM 

2) 100% APU Speed, Pressurized System, Flow Rate > 17.5 GPM 

3) 110% APU Speed, Pressurized System, Flow Rate £ 17.5 GPM 

4) 110% APU Speed, Pressurized System, Flow Rate > 17,5 GPM 

5) 100% APU Speed, Depressurized System, Plow Rate < 4.0 GPM 


FIGURE t 
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SUBROUTINE SAPUM 


Identification 


Name/Title 

Author/Date 

Organization/Installation 
Machine Identification 
Source Language 


- SAPUM 

- E. Taylor /October 1975 

- LEG for MPAD-JSC 
Univac 1108 

“ FORTRAN V 


Purpose 

Subroutine SAPUM averages the data, computes APU fuel requirement 

prints the timeline profiles and APU fuel usage summary, and writes th< 
the output data tape. 

Usage 


Calling Sequence 
CALL SAPUM 
CALL SUMM 


Data In/Out 

Variables in labeled common are listed in Appendix A 


Block Name 

/TARRAY/ 

/TIMES/ 

/NAMES/ 

/LMMTRX/ 

/CONF/ 


Input 

T(IOOO) 

I START 

ISTOP 

NOL 

ISPED(2) 
IPTR(3,3,3) 
ISYS (3) 
IAPUSD(3) 

TP 


Output 
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Block Name 
/OUTPUT/ 


/RATES/ 


Storage 


Input Output 

FLRT (NL) 

TPLRT(3) 

PWR(3) 

CGLOAD 

ALT 


Coding occupies 117 Og 
427g (279^q) locations 

Method 

(584^g) locations. Internal data occupies 

Local Variables 

Name 

Type 

Units 

’ Description 

ACOEF(I) ,1=1,12 

R 

i 

Coefficients for atmospheric 
pressure equation 

ALTKM 

R 

KM 

Altitude 

ENUSED 

R 

HP-HR 

Energy used 

FRATEl 

R 

LBS/HR 

Fuel usage rate at sea level 

PRATE 2 

R 

LBS/HR 

Fuel usage rate at space 

FREM(l) ,1=1,3 

R 

LBS 

Fuel remaining 

FREQT 

R 

HRS 

Interval specified in input over 
which to average data 

PURATE 

R 

LBS/HR 

Fuel usage rate at altitude 

FUSED 

R 

LBS 

Fuel used over interval 

lOVER(I) ,1=1,3 

I 


Flag for no usable 
fuel remaining 

lOTAP 

I 

- 

Unit for plot tape 

KSPD(I) ,1=1,3 

I 

- 

APU speeds at beginning of 


interval 
= 1 100 % 
= 2 110 % 
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Name 


Units 

KSYS 

I 

- 

NL 

I 

- 

PA 

R 

PSI 

PRESUR 

R 

ATM 

SLRTE(I) ,1=1,5 

R 

- 

SPRTE(I) ,1=1,5 

R 

•• 


STORE (1) 

R 

HRS 

STORE(I) ,1=2,38 

R 

GPM 

STORE (I) ,1=39,41 

R 

GPM 

STORE (I) ,1=42,44 

R 

HP 

STORE (45) 

R 

G 

STORE (46) 

R 

FT 

TENUSD(l) ,1=1,3 

R 

HP-HR 

TPUSED(I) ,1=1,3 

R 

LBS 


WAVG(l) 

R 

HRS 

WAVG(I) ,1=2,38 

R 

GPM 

WAVG(I) ,1=39,41 

R 

GPM 

WAVG(I) ,1=42,44 

R 

HP 

WAVG(45) 

R 

G 

WAVG'(46) 

R 

FT 

XINT 

R 

HRS 

XTP 

R 

HRS 

YTP 

R 

HRS 


Description 

System configuration code at 
beginning of interval 
No. of loads 
Atmospheric pressure 
Atmospheric pressure 
Coefficients for equation for 
fuel usage rate at sea level 
Coefficients for equation for 
fuel usage rate at space 

Last value read or calculated for: 
Time 

Flow rates for loads 
Plow rates for systems 
Power requirements 
Vehicle load 
Altitude 

Total energy used 
Total fuel used 

Weighted average of: 

Time 

Flow rates for loads 
Plow rates for systems 
Power requirements 
Vehicle Load 
Altitude 

Interval over which data is 
averaged 

Time at beginning of interval 
Time at beginning of next interval 
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Model 


The APU fuel , 2 ?e^irements are compute^.^ias follows 


Ysl "" 2^ 

i=0 ^ 




i=0 


P 

ALT 


14.696 


C.3048006E-3 x E) ^ 

1=0 


4 


y = ^sp ^ysL 


ygp^ ^ 


p 

ALT 

14,696 


y = y X At 
+ Y 

ypEM ^ yLOAD ” ^T 

The following energy calculations are also performed 


e = P X At 


+ e 
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Fuel usage rate at sea level - Ibs/hr 


Ygp = Fuel usage rate at space - Ibs/hr 

y »= Fuel usage rate at altitude “ Ibs/hr 

p = System horsepower - hp 
H = Altitude - ft 

^ALT” Atmospheric pressure at ^Iti-tude - psi 

At = Time interval ~ hrs 

y = Fuel used - lbs 

y^ = Total fuel used - lbs 
^REM ~ remaining - lbs 

^LOAD” loaded - lbs 

e = Energy - HP-HR 

- Total energy - HP-^HR 

When no usable fuel remains in a tank the following message is 
printed. 

No usable fuel remaining for system X at XX. XX hrs. 

The APU fuel usage rate curves were generated from SFC data 

I 

in Reference 2, The coefficients for the atmospheric equations 
can be found in Reference 1. 
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COEFFICIENTS FOR APU FUEL USAGE 
RATE CURVES 


1 

SEA LEVEL 

SPACE 

a 

1.552781300 E-1 

4.549345422 E-1 

o 




7,942535888 E 0 

6.643038955 E 0 

^2 

-5.598904841 E-2 

-2.576230609 E-2 

^3 

5.365529363 E-4 

2.244328952 E-4 

^4 

1 

-1.714884558 E-6 

-6.707555029 E-7 


FIGURE 1-0- 
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RETURN 
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SUBROUTINE SYSDAT 


Identification 


Name/Title 

Author/Date 

Organization/lnstallation 
Machine Identification 
Source Language 


- SYSDAT 

“ E. Taylor/October 1975 

- LEG for MPAD-JSC 

- Un'ivac 1108 

- FORTRAN V 


Purpose 

Subroutine SYSDAT stores the systems design data, generates 

the loss management matrix and prints the hydraulics load data report. 


Usage 


Calling Sequence 
CALL SYSDAT 


Data In/Out 


Variables of labeled common are listed in Appendix A. 


Block Name 

Input 

Output 

/TARRAY/ 

T(IOOO) 


/LMMTRX/ 

LMM(3,NL) 

IPTRC3,3,3) 

ICODE(27,NL) 

ISOV(NL) 

/NAMES/ 

NAME(2,NL) 


/LKGS/ 


PSLKG(NL) 
SVLKG (NL) 

/GRAD/ 


PGRAD(NL,2) 
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storage 


Coding occupies 414g (268 ^q) locations. Internal data occupies 
403g (259 ^q) locations. 

Method 

Local Variables 
Name 

PGC0MM(2,NL) 

ISYS 
MODE 


NL 

Model 

A loss management matrix is generated which contains the system 
assignment for each load for each combination of system modes. 
The system assignments are foxind by checking the active system, 
first standby system and second standby system of the load for 
a pressurized system. The first system found to be pressurized 
is assigned to the load. If none of the systems are pressurized, 
the procedure is repeated checking for depressurized systems . 




Units 


Description 


A 

I 

I 


Plow gradient comments 

System No 

System mode 

= 1 pressurized 

= 2 depressurized 

= 3 off 

No. of loads 
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SUBROUTINE TITLE 


Identification 


Name/Title 

Author/Date 

Organization/Installation 
Machine Identification 
Source Language 

Purpose 

Subroutine TITLE prints the 
Usage 

Calling Sequence 
CALL TITLE 
Data In/Out 

Variables in labeled common 

Block Name 
/TIMES/ 

Storage 


“ TITLE 

- E. Taylor/October 1975 

- LEG for MPAD-JSC 

- Uni vac 1108 

- FORTRAN V 


title for the timeline profiles 


are listed in Appendix A 

Input Output 

NOL 


Coding occupies 32g (26 ^q) locations. Internal data occupies 
123g {83 ^q) locations. 

Method 

TITLE prints the title for the timeline profiles and resets the 
line counter to 0. 
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SUBROUTINE TLINE 


Identification 


Name/Title 

Author/Date 

Organization/Installation 
Machine Identification 
Source Language 

Purpose 


TLINE 

E, Taylor/October 1975 
LEG for MPAD-JSC 
Uni vac 1108 
FORTRAN V 


Subroutine TLINE reads and processes card inputs. 


Usage 

Calling Sequence 
CALL DLINE 


Data In/Out 

Variables in labeled common are listed in Appendix A, 


Block Name 


Input 


Output 


/CONF/ 


/GRAD/ 

/NAMES/ 

/RATES/ 


ISYS(3) 

IVALVEO) 

IAPUSDC3) 

IBYPV{3) 

FGRAD CNL,2) 
ILOAD (NA) 


ISYS(3) 

IVALVE(3) 

IAPUSD(3) 

IBYPV(3) 

TP 
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RATE (NA) 
HM(NA) 
DEF (NA) 



Block Name 


Input 


Output 


CGLOAD 

ALT 

/TIMES/ ISTART 

ISTOP 
lEND 

WRT(NR) 
lETP 

Storage 


/TARRAY/ 

/TRAJ/ 


Coding occupies 521g (33 7^0 ) locations. Internal data occupies 
73s (59^„) locations . 

Method 


Local Variables 


Name 

ICARD 

IR 


ISSTRT 

ISTAT 

NA 

NL 

OWRT(I) 


OWRT(I) 


Type 

I 

I 


I 

I 

I 

I 

R 


R 


Units Description 

- Flag for card input 

- Rate flag 

. = 1 Angular 

= 2 Fluid flow 

- Flag for load design data change 

- Read status flag 

- Number of actuators 
Nimber of loads 

DEG/SEC Angular rates returned from 
PHASE; I is the actuator no, 
(1=1,15) 

- Actuator operational flag returned 
from PHASE; I is the actuator no, 
(1-16,23) 
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Model 


The program is initialized by card input before operational 
control is transferred to tape or card input. If control is 
transferred to tape input, the operational parameters (time, 
angular rates, hinge moments, surface deflections, actuator 
operational flags, altitude, vehicle load, system status variables) 
are read from tape or overlaid with logic in the PHASE subroutine. 
Card input will supplement or override this daua. Angular rates 
and fluid flow rates converted to angular rates input from cards 
are added to the angular rates returned from PHASE. Altitude, 
vehicle load, actuator operational flags and system status 
variables input from cards will override the data returned from 
PHASE, If control is transferred to card input, all operational 
parameters are defined by card input. 


5M5 
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SUBROUTINE TREAD 


Identification 


Name/Title 

Author/Date 

Organ! zation/Installation 
Machine Identification 
Source Language 

Purpose 


- TREAD 

D. Wiggins/October 1975 

- LEG for MPAD-JSC 

- Univac 1108 

- FORTRAN V 


Subroutine TREAD reads blocked binary tapes. 


Storage 

Coding occupies 304g (196^^) locations. Internal data occupies 
1343g (739 ^q) locations. 

Usage 

Calling sequence 

CALL TREAD CIFLAG, TUNIT, LGDWN, IWOW) 

Argriments 

Parameter 


Nattie 

In/Out 


Description 

TFLAG 

OUT 

I 

End of tape flag 

TUNIT 

IN 

I 

Tape unit 

LGDWN 

OUT 

I 

Landing gear down flag 

IWOW 

OUT 

I 

Touchdown flag 
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Data In/Out 


Variables in labeled conmion are listed in Appendix A 

Input Output 

WRTC75) 

Error Messages 

The following message is written when a tape error occurs 

NTRAN error — * status word = X Program assumes end of tape 
and continues processing. 

Method 

Local Variables 


Block Name 
/TARRAY/ 


Name 

Type 

Units 

Description 

A(I) ,1=1,32 

R 


Logical record 

ASAVE 

R 

.2 SEC 

Last time read from tape 

B(I) ,1=1,640 

R 

- 

Record buffer 

DELTA 

R 

SEC 

Delta time 

ISKIP 

I 

- 

Bad record flag 

ISTAT 

I 

- 

Status return 

NN 

I 

- 

Logical record counter 

TP 

R 

SEC 

Adjusted time 

TSAVE 

R 

SEC 

Last adjusted time 

TSTART 

R 

,2 SEC 

First good time 
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Model 


The NTRAN I/O Routines are used to read the input tape. The 
data is then unblocked and data from one logical record is 
returned to> PHASE. Additional information on NTRAN usage may 
be foimd in PARTS 15 and 20 of the CAD Procedures Manual . 
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5 . 5 PROGT?AM LISTINGS 
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1. COMMON, H-.COMHON 

.70-6 02/06-18:C9:31-(0,2) 

PAR PRCC 

PARAMETCR HNA =29 , NR=3»HNA *7 ,MNL=9 6 ,NB=MNL 3 ,HH V=9 , HSV =9 , HSUV=9 
« ,MVCONF=10 

PARAHETFR KNSPDS = «I,MN£ONS = 5,MNOCF = 10 ,HHTEQN = 5,HTN0CF=10 
tOHHON/NUHS/NL,NA .. 

n«o 

CBLl PROC 

COMMON /CONr/ISYS(3),IAPUSOI 3>,TP,NOS,P<3>,STVLV 
INTCtER STVLV 

CG^,nO^ /RATC6/K AIE< MNA ,DFF(HNA J , CGLO AD , ALT , XHACH 

CCMllCN /TIHCS/rSTART.ISTOP.rErS'O ,NOL ,NP7S,NPLTS 
■» .IPHASE ,IUKLAG,N0L2,TTIHE,IUNIT .FREEI2J ,FRNO<i|) 

* ,CLNO(*»},TPCALL(m ,ECTRANt3),LTYPE,XTFN0,LPHASE,N« 

« ,ISTAT,IC'RD,LUMT 

COMMON /lARRAY/ T tl OOD > , UR T ( NR > 

COMMON /TRAJ/ INDEX (NP ), lETP 

C0MM0N/NAHES/NAME(2,MNL) .lACTNOdtNLJ .NHCDEt 3) , ISPEO ( 2) , ILOAD «MNA » , 

* IVCHIHNL ) , ACTNAMt MNA,2 > 

END 

C6L2 PROC 

COMMON /CRAO/FCRADIMNL ,2) ,FLGRACtMNL J _ 

COMMON /LKGWPSLXGfMNL ),SVLKGtHNLI , X PSLKG ( MKL » , XS VUKG < HNL > 
v^ALTFLW I MNL / 

COMMON /LKMTPX/LMH(3,MNL) ,IPTR(3,3,3 ),ICODE < 3 ,HNL) ,I ASGN ( MM ) , 

* M1V(MNL IjlSIVlMNLI tlSUVIMNLJ , 

* HVNAMta ,HMV I ,MVS YS IMMV) , PVVEH(HMO» , 

« . SVNAM(2,MSV) , SVVEH(HSV), SVSVS(MSV>, 

* SWV;)AMt2,HSWV),SWSYS(MSWV> ,SWVVEH(MSWV) 

■f.VCOJvriMVCONF) ,NHV,NSV ,NSRV,NVCnNF 

UTELER UCONf, SVVEH, SyVVEH,SVSVS ,SWSVS 

END 

CBL3 proc 

COMMON /ODTFUT/FLRT(HNL» , TFLRTC 3 » ,PUR 1 3 1 , IS AT < 3 ) ,SAT(2> 

«, 1PFLT,10TAP 
COMMON /COEFf/ CF( 10,2,2,2) , 

« C3ANGE<2,2,2,3) 

« .I.PCP 

DOUBLE PRECISION CF 

COMMON /PC0MP/ULTPLC(3),ULPRLCI 3) , T VOL < 3 ) , HE t 3 ) , 

* 0LTALT(3I,ULT0FTI3,7),PLIJH3) 

- - « ,ULPRFC(3),XFLO«(3,2» 

COMMON /FUEL/ F LO AO ( 3 ) , FUNUSE ) 3 ) ,TFUSED ( 3 ) . FREM ( 3 » , TENUSD I 3) 

COMMON /SFCC/ NOCF I HNSPDS , MMEON S , 3 ) , SFC (MNS PDS , HNEQN S, HNOCF , 5 > , 

XALT(HNSP05,MNECMS,3) , PRALT (HNSPDS, HNECNS ,3 ) ,NSPDS ■ 

■S' NEONS ( HNSPDS) ,rtlRA TE (3 I 

COMMON/ THRS T/I AL T (HNTEQN) ,TNOCF (HNTEQN) ,THRUST (MNTEQN,MTNOCF) 
«,NTC,TPRESS (HNTEQN) ,TR ( 3) ,PAMB 

iatc(:eb tnocf 


END POP ERRORS : NONE 



s 




(iFOR,S H.KAIN/V 6 .H.HAIN/V 6 

FOR j;aC 3 -C 2 /a 6 / 79 -lC:n 9:33 C 29 ,l 

main -PROCRAH 


STORAGE 

USED: 

CODLd) 

COMMON 

BLOCKS 

: 

C 003 

KUMS 

QCC 0 Q 2 

D 3 U 4 

CCNF 

DC 0014 

ones 

Rates 

0 DQ 132 

0036 

TIMES 

000043 

CDQ 7 

TAPft AY 

0 C 21 C 6 

0010 

TRAJ 

COGl 37 

ceil 

NAMES 

G 0 G 424 

0012 

CU rPUT 

OCL 073 

□ ''13 

COEFF 

□00271 

CD 14 

PCOMP 

CDC 06 D 

C 015 

FUEL 

2 C 0 C 17 

0016 

SFCC 

G 01424 

0017 

THRST 

0001 06 


DATAtOI 00 DQ 50 ; CLANK C 0 HH 0 N( 2 » 000000 


EXTERNAL REKCRENCES (CLOCK, NAME! 



C 020 

CEASE 


0021 

TLINE 

1 . 

□ 02 2 

MINOE 

C 02 3 

ACTOAT 


CQ 24 

POWER 


cn 2 E 

SAPUM 

0 02 6 

SUMH 


0 027 

NINTR 5 


0 -C 30 

NKOUT 


CQ 31 

M 02 t 


CG 32 

NRDU$ 


□ 033 

M 031 


0034 

NWEFl 


G 035 

NKNL 4 


0036 

NSTOPl 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAHEl 

0000 0 DD 02 S 
0005 - 0 QD 13 O 

0005 000072 

0006 PDDD 13 

0014 000011 

0004 .1 0 DC 003 
0010 DOCgOQ 


cnoo 


000035 

lOOF 

0000 

000036 

lOlF 

cnoi 


000 C 54 

5L 

QCn 

000332 

ACTNAM 

0006 


COCO 21 - 

CLNO 

ODOC 

000015 

OQ 

C 015 


D 0 C 30 C 

FLuAO 

0012 

000000 

FLRT 

0015 


roocoB 

FUiNUSE 

□ 016 

•001421 

FURATE 

r COO 

I 

acDuoc 

lA 

non 

000134 

lACTNO 

CDIO 


000136 

lETP 

. oon 

000217 

ILOAD 

C 012 

I 

000071 

IPPLT 

0012 

000064 

ISAT 

C 0 C 6 

I 

000001 

ISTOP 

0034 

I ooomc 

ISYS 

c-'oe 


000036 

LPHASE 

0006 

000034 

LTYPE 

C 016 


G 01415 

NEONS 

0033 

cDooac 

r.L 

0 006 

I 

COOCIC 

HCL 2 

0004 

I 0 C 0007 

IJOS 


non 

0006 

0006 

con 

0013 


000215 
CDOQl? 
000042 
rC 02 1 2 
D 0027 D 


I02F 

ALT 

OEF 

FREE 

HF 

1 APUSO 

INDEX 

ISPEO 

lUNIT 

LUNIT 

NMODE 

NPER 


cool 


000106 

203 G 

00 01 

C 013 

0 

oocooo 

CF 

- 00 C 5 

C 0 C 6 

R 

000031 

ECTRAN 

C 013 

C 015 


□ coon 

FREM 

00 C 6 

C 005 


000035 

HP 

OOCiO 

C 006 


OOOC 41 

ICAPD 

00 06 

0012 

I 

000072 

lOTAP 

00 06 

C 0 C 6 


ncroDO 

ISTART 

C 0 C 6 

con 


0 CC 254 

IVEH 

CPE 6 

CQ 03 


oonool 

NA 

0011 

C 016 


or'f’oro 

NOCF 

ones 

CO 06 

I 

000005 

NPLTS 

0 C 06 


000124 

000127 

000240 

oonci 5 

000014 

O0nCD2 

000006 

O 0 DC 40 

DCnCC 7 

OQOODC 

OOOC 02 

OOOOD4 


30 QL 

CGLOAD 

ERANGE 

FRNO 

I 

lENO 

IPHASE 

ISTAT 

IVFLAG 

NAME 

NOL 

NPTS 



8n^i§ 

0016 

0012 

0006 

coir 

CC07 


cniti i<( 
CDOOM*! 
C00C7') 
000056 
CC0D25 
conc'i7 
00175C 


NS1*DS 

PLIH 

src 

TFLRT 

TPCALL 

ULPRFC 

WHT 


OOOA 

0015 
0017 
QC1«* 

0016 


885SIS 


NTC 
PRSLT 


0Q0C13 STVLV 
000006 TFUSEO 
000075 TPRESS 
000003 ULPRLC 
001224 XALT 


38!l S8S8I! 

0007 ». 000000 7 

0017 000012 THRUST 

0017 D0C1O2 TR 

0014 000014 ULTALT 

0014 000052 XFLOU 


C017 

0017 

C006 

C014 

G005 


8SS8M ^ATE 

000000 TALT 
DCnOOS TNOCF 
ooonil TTIME 
0CCQ17 ULTCFT 
000131 XPACH 


mi es8i8? 

0015 000C14 TENUSO 

C0C4 OOOC06 TP 

C014 0CDC06 TVCL 

CC14 COOCOO ULTPLC 

CDC6 00C035 XTPHO 




P 

( 

P 


COlOl 
CO 102 
C0103 
C01D3 
CC1C4 
C0105 
COIDS 
C0106 
CO IGo 
C0107 
00110 
com 

C0112 
COl 12 
CO 112 
Cf’112 
[jO 1 1 3 
C0114 

cons 

CO 11 5 
cn I I'E, 
00116 
Cdl6 
C0117 
cnii7 
GC12C 
CO 120 
CC120 
CQ121 
00122 
00122 
G0I22 
C0123 

00124 
C0124 
C0124 

00125 
C0125 
CC126 

00126 
C0127 
00130 
cni’i 
C0133 
C0137 
CQ141 


1 * 

i? 

1« 

1« 

1« 

1« 

2# 

2»# 

2« 

2 * 

2'» 

2'^ 

Z* 

2* 

2* 

2 # 

2» 

2>> 

2» 

3« 

3«- 

3« 

3* 

3# 

3* 

5^ 

3« 

3>^ 

3'!' 

3* 

3v 

3# 

3« 

3« 

Z* 

3>!‘ 

3» 

iiJi 

Sf 

6« 

7« 

a* 

9-f 


INCLUDE PAR, list 
PAR PROC 

PARAHETFR MNA = 29 ,NR = 3 'fMNA'* 7 ,MNL = 4 t,N 6 = HNL<-l 3 , HPV = 9 , MSV =9 , H SH 

♦ ,nvcoNF=in 

PARAHETER HNSPDS= 4 ,HNEQMS: 5 ,HNOCF:lO,MNTEt!N :5 ,HTNOCF = 10 
CPMHON/NUHS/NL,NA 

END 

INCLUDE CPLljLIST 
COLl PROC 

rOMHON /CONF/rsySt 31 ,IAPUSO ( 3 ) , TP, NOS ,PC 3 ) ,STVLV 
INTEOFR STVLV 

CCHttON /r ATES/P ATE (HNA ) ,HP 1 MNA) , OEF 1 HNA J , COLO AD, ALT , XHACH 
COMMON / I IHES /I ST ART, I STOP, TEND, N CL ,NPTS ,HPLTS 

* , ti’HA£C,IVFLAC,N 5 L 2 ,TTlMC , lUN I T ,F RF E { 2 1 ,FRNO 141 

<= ,CLNul4 } , TPCALL (4 I , E C TR AN t 3 I , LT YPE , XTPNO , LP H AS E ,NW 
« ,lSTAT,ICAftO,LUNIT 
COMMON /TARRAYY T 1 1 OOP I , U RT 1 NR ) 

COMMON /TRAJ/ INDEX ( NR ) .IFIP 

COMMO'I/NAMCS/NAHE 1 2 ,MNL ( , TACTNO IHNL ) ,NMODE 1 3 ) ,ISPED 1 21 ,ILO AO 
if IVEH(MNLI,ACTNAH(HNA, 2 ) 

END , ' 

INCLUDE CeL 3 ,LIST 
C 6 L 3 PROC 

COMMON /OUTPUT/FLRTlMNLl, TFLRT 131 ,PUR 13 ) , IS AT 131 , S AT 1 2 1 
«, IPPLT,IOTAP 

COMMON /COEFF/ CFl 10 , 2 , 2 , 2 ) , 

♦ ERANGt( 2 , 2 , 2 , 3 l 
« ,N=CR 

DOUOLF PRECISION CF 

COMMON /PCOMP/ULTPLCI 3 ),ULPRLC( 3 l , T VOL 1 3 1 ,HE 1 3 ) , 

# ULTALT13) ,tlL T0FT)3,7l,PLIH13J 

. « ,ULPRFC 1 3 1 tXFLOWl 3,2 » 

COMMON /FUEL/ FL CA D 1 3 1 , FU NU SE 1 3 I , TFUSEO I 3 ) , FR E K( 3 ) o TENUSO J 3 1 
COMMON /SFCC/ N 0 CF 1 MNSPDS,HNEQNS, 3 ) ,SFC ( MNSPDS ,MNEQNS,MNOCF, 

* XALTIMNSPDS ,HNE 0 NS, 3 ) ,PR ALT 1 HNSPDS ,MNE CNS , 3 ) ,N 

« NEONStMNSPDS ItFURATE 13 1 

COHMON/THRST/TALTIHNTEQM) ,TN 0 CF IHMEONl , THRUS T IHNTEQ N, MTNO CF 
#,t!TC, TPRESS IMNTCCN 1 , TR 1 3 1 , P AME 
INTEGER TNOCF 


V=9 


q ^ 

•DTl S 

•73 % 
1 MN A iQ ^ 




SP&S, 

1 


END 


nI^'EUSIO^ IA1121 
NAMCLIST/DB/UPTS ,NPLTS 
DATA (Tm,I = l,NRI/NR*l,/ 

DATA tSYS /5*1/ ,IAPUS0/391/,ISTA7/1/ - 
DATA rCTRAN /3*-9P9999999 ./ 

DATA (Til) ,1 = 675,677) / ‘'0 00 . , 1000 . , 0 . / 


COCOOO 

COOOQl 

COCCOl 

COCDOI 

concQi 

COCDOI 

coocni 

COOCCl 
COODOl 
CD 0001 
00 00 01 
00 0001 
L.OCC01 

cnoooi 

CO 0001 
COCCOl 

onccoi 

COCDOI 
COODOl 
oOCCOl 
vonoDi 
GO 00 01 
COCDOI 
COOOCl 

cnoool 

COOCDl 
CQDOOl 
LOCO 01 

cnpool 

EOOCOl 

000001 

COODOl 

COCODl 

COOOOl 

000001 

COOCOl 

COCDOI 

COCDOI 

COOOOl 

COCCOl 

COOOOl 

COPODl 

LOOOOl 

conooi 

COOOOl 

UODOOl 



COIRS 

ID’!- 

EC1K6 

11* 

C01A6 

12* 

GO 150 

13* 

CDIEI 

16* 

CC152 

IS* 

C015H 

It* 

CD155 

17* 

rni6C 

18* 

CC161 

I 9* 

CP16<* 

2G* 

CD 167 

2 1* 

CD172 

22* 

CP 172 

2 3* 

CD 1 72 

26* 

C0172 

25* 

CC173 

26* 

EC 173 

27* 

CP173 

2 a* 

CO 173 

29* 

00 17'! 

3C* 

CD17R 

31* 

C017</ 

32* 

C017A 

33* 

CE17A 

36* 

LO 175 

3S« 

EC 176 

Sfc* 

C0177 

37* 

CD 177 

36* 

C0201 

39* 

LC2D2 

RC* 

C0205 

41# 

CP2C5 

62* 

C0205 

43* 

QQ205 

44* 

E02C5 

45* 

C0210 

66* 

E021C 

47* 

CD21D 

46* 

C0210 

49* 

Cn21D 

SC* 

D0211 

51* 

C0211 

52* 

CD211 

53* 

00 211 

54* 

C0211 

55* 

C0212 

SGw 

C0212 

57* 

□ 0212 

56* 

00212 

59* 

00212 

6C* 

C0212 

61* 

C02U 

62* 

CD 21 A 

63* 

00216 

G4* 

00216 

65* 

C0217 

66* 


OM* I T( I> ! t = aof,l8ll^/200C. tlQQD. ,-.aoa33 3S33 32v ,O37£»1.0. 

6 *2 f ^ ^ 7 # 1 • 0 f ^ 

N0L=51 

NOL^r^l^ 

1D2 FORVATl* *fStSn rum IC FOR HEADER OM PRIMT FILES'! 

REAO<S,13r» lA 
lUO FOR^AT<1206> 

;<RlTEr 6 ,KmA 

U‘«?1T£(7,1C1 IIA 
viRiiEta.inniA 
IDl FORtiATi2X,i2A6) 

READ r« DATABASE 

call DBASE 

READ IT! TIIILLIHE INPUT . . .2. 

5 call TLINF 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SET MISSION PHASE AND VEHICLE FLAGS 
IPHASE=H66« J ♦ . 1 

IVFLAG = T f 996 J ♦-.I - - - 

IF IISTOP.EQ. IJ GO TO 300 

NOS='J 

00 IQ I=l »3 - . - 

1 C IF (isrsjll .EQ. 1) NOS=MOS«^l 

CHECK KATES AGAINST HINGE-HOKENT STALL CURVES 
call hinge 

DETERMINE SYSTEM ASSIGNMENTS? POWER SPOOL AND SERVO VALVE LUGS 
AND FLOW CPAOIFNTS FOR ACTUATORS 

CALL ACTDAT 

compute flow rates and' power REOUIREPENTS 
OUTPUT POWER REPORT AND POWER PLOT TAPE 

call POWER ^ 

AVERAGE DATA AMD OUTPUT TAPE 

COMPUTE API/ FUEL USAGE AND OUTPUT APU PLOT TAPE 

30D CALL 5APUH 

IF IIFUD ,NE. II CO TO 5 

IF^ATA^AVERAGING has suppressed print final FUEL USAGE SUMMARY 
IF (T(78I) .GT. 01 CALL SUHH 


“59 © 

O SJ 

o > 
yo r- 

c ^ 
> o 

p m 


COOOOl 

COCOCl 

EOOOQl 

1,00001 

000003 

GOOOOA 

LOCGU 
GO DO 11 
L 0 n 02 ! 
000021 
L’0n0 31 
COCCAI 
COOOSl 
cnoosi 

CDOQSl 

lOOOST 

C0C051 

COOOSl 

000051 

COOOSl 

COODSR 

CDCOBM 

C0CD54 

C0CD5A- 

UOOOSA 

CQG055 

LDCC66 

EOC077 

CPCD77 

C0D102 

000106 

LODIOG 

L 0 CIC 6 

U00106 

COB106 
CC01C6 
COOllS 
COCltS 
COCl IS 
CCCl 15 

CODl 15 
C0C117 
C0C117 
LOCI 17 

cacii? 

cool 17 
C0012J 
LOOIZI 
EOGl 21 
C01U21 
LODlZl 
CDC121 
LOCIZ** 
EDOl 25 
GDCl3n 
cool 30 
LMnj 30 





aFCR.S H.TLlhE/Ut,H.TLlWE/if6 
FOR S0£3-CZ/Q6/7?'-18 s09;39 <50, » 


SUBROUTINE TLINE 


ENTRY POINT 000662 


STORAGE USED: CODEIl) D0C673i CATA<0) 000175} BLANK COPHONI2) 000000 
COMHC'N TLOCHS; 


ono3 

OOOA 
COGS 
0006 
0007 
cm a 
oon 
0012 
0013 
001'( 


NUMS 

CONF 

KATES 

TI AES 

T ARRAY 

TRAJ 

NA*At.S 

GPAD 

LKGS 

LN'ITRX 


CC0002 

cccnm 

OCO 132 
0C0Q43 
0C21C6 
OCOl 37 
ncc,M24 
CCG212 
000346 

oci m 


EXTERNAL REFERENCES (BLOCK, NAf'E » 


Onis 
C016 
Cf)17 
0^20 
C021 
CQ22 
DG2 3 
C024 


SYSUAT 

PHASE 

NROU; 

N1025 

NI03S 

NUOUS 

NEPR21 

NERR31 


■®4' 

- - 

9.P 

' ' 

^ © 


STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME! 


0001 


DOOOG5 

IL 

DOQl 


000641 

IQOL 

Qono 


000130 

IIF 

coon 


000121 

12F 

0001 


000135 

13L 

0 001 


CCG141 

IRL 

0001 


000016 

2L 

0001 


C0020S 

20L 

cool 


000322 

300G 

OOCl 


OC0402 

334G 

CGOl 


CC0411 

341G 

0001 


000444 

354G 

0001 


000537 

400G 

CODl 


000544 

4056 

ODCl 


CC0555 

413G 

CQOl 


00Cu24 

5L 

0001 


000275 

53L 

OOCl 


000314 

SIL 

cool 


000333 

55L 

COCl 


000356 

56L 

0 200 


COO 1 2D 

6F 

0"01 


000363 

6CL 

0001 


CC036Q 

64L 

cool 


OrP3 1 1 

79L 

OOCl 


000437 

8CL 

E301 


000107 

9L 

oni 


000533 

90L 

ODOt 

-- 

00C477 

91U 

coon 


OCOl 33 

911F 

OOCO 


00D124 

912F 

COOD 


C00137 

913F 

0001 


030502 

92L 

0001 


000507 

9 3L 

cool 


0C0634 

99L 

0011 


000332 

ACTNAM 

C305 

R 

con 130 

ALT 

Df'13 


300270 

ALTFLU 

0005 

R 

000127 

CGLOAO 

CDQ6 


000021 

CLNO 

coco 

R 

ODOC35 

CHT 

C^IOO 

R 

D0GU47 

DATA 

QOOG 


003061 

OGi 

DDCO 


0DD113 

D42 

CDD5 

R 

000072 

DEF 

C0C6 


0CPC31 

ECTRAN 

0012 


ODOCiOtj 

FCRAD 

0P12 


000134 

FLGRAD - 

0006 


000013 

FCEE 

0006 


0 000 IS 

FRNO 

0DC5 

R 

003035 

HK 

COCO 

I 

OOOGAf 

1 

0011 


0C0134 

lACTNO 

0004 

I 

0GP0C3 

I&PUSD 

0014 


P 004 5 7 

lASCN 

C0C6 

I 

ori'’C4i 

ICARO 

coin 


0C0243 

ICOOE 

DOLO 

1 

0CC05C 

lOATA 

0006 

I 

0D0QD2 

lEMO 

com 

I 

OQPl 36 

lETP 

COCO 

1 

PD3C56 

II 

C^l 1 

I 

CC0217 

ILOAIl 

coin 

I 

3O0C3O 

1N3EX 

OOCO 


CD3IS4 

If JPI 

C0Q6 


rcaoo6 

IPHA SF 

CD 14 


0C0212 

IPTR 

coco 

I 

CCCC54 

IR 

omv 


00061 3 

ISIV 

cell 


CQ3215 

ISPED 

coon 

I 

000046 

ISSTRT 

C0C6 

I 

OOPCOC 

1ST ART 

cnc6 

I 

C0004L 

ISTAT 

D006 

I 

30CI001 

ISTOP 

0000 

1 

003051 

ISUB 

C014 


000671 

ISWV 

0DC4 

I 

OOOCOD 

ISYS 

onc6 


030014 

ponooo 

rUNIT 

3 111 


000254 

IVEH 

0006 


000007 

IVFLAG 

COOO 

I 

000052 

J 

COlO 

1 

OO'^CSB 

K 

CT14 


LKIt 

0036 


000036 

LPHASE 

0006 


000034 

ltype 

C0Q6 


OOC042 

LUNIT 

CP CO 

r 

0C30«;E 

K 

CC14 


C00b3£ 

Mill 

0014 


0CP747 

HV'iAH 

0014 


C0C771 

HVSYS 

C014 


nriDD2 

HVVEH 

C0u3 

1 

c(;3coi 

NA 

E"ll 


COODOO 

NAME 

D0D3 


noooon 

ML 

0011 


003212 

N«OOE 

C014 


ocn 35 

KMV 

COCO 

R 

C00C44 

NODATA 

C006 

1 

coooo: 

NCL 

0C06 


onccir 

NOLO 

0004 


nonocr 

NflS 

C0C6 


003005 

NPLTS 

00L6 


000004 

NPTS 





cniJj 

DOO** 

DC14 

0014 

0014. 

C0G6 


CO 11 36 
C03D1C 
C01013 
001112 
CD1123 
000035 


»SV 

P 

SVhAH 

SWVVEH 

VCONF 

XTPNO 


0014 001137 NSWV 0014 

0013 OOOODC PSLKG 0005 

0014 I 001046 svsys < 0014. 

0007 n OQDDDO T 0004 

0707 F 001750 URT 0005 



001140 

nvconf 

rOQ6 


OOC1D37 

NU 

R 

oocooo 

RATE 

C004 

I 

OCC013 

STVLV 

I 

001035 

SVVEH 

CQ14 

I 

OCllDl 

SWSYS 

R 

□00006 

TP 

0006 


000025 

TPCALL 

R 

000131 

XMACM 

C013 


000134 

XPSLKG 


0000 R 000000 0WP7 

C013 CCDC56 SVLKC 

0014 DD1CS7 SWVKAM 

0006 OOODll TTIBE 

0013 ODP212 XSVLKG 


in \ 

I 

CO 


COIDI 
C0103 
00103 
CO 104 
C0104 
L0105 
00106 
CO 106 
00107 
CP 107 
CCllO 
CP 111 
00112 
ecus 

CfU13 
ceil 3 
coil 3 
CD 114 
C0115 
CP116 
C'1116 
OP 11 6 
CfUl7 
C0117 
00120 
C0121 
00121 
00122 
C0122 
00122 
C0122 
00122 
00122 
00123 

00123 

00124 
00 125 
00126 
00130 
C0131 
00132 
10132 
00132 
00 136 
C3140 

00141 

00142 


10 
20 
20 
20 
20 
20 
20 
20 
30 
30 
30 
30 
30 
50 
30 
30 
30 
30 
30 
30 
30 
30 
40 
40 
40 
40 
40 
40 
40 
40 
40 
40 
40 
40 
40 
50 
6w 
70 
80 
90 
10> 
1 Iv 
120 

140 

ISO 

160 


PAR 


END 

CBLl 


END 

CBU2 


END 


SUBFOUtlNE TLINE 
INCLUDE PAR, LIST 
PROC 

PARAMETER UNA =29 ,NR = 30HNA *7 ,HNL = 4 5 , NG:HNL-»1 3 , MMV =9 , H SV=9 ,H SU V=9 
o ,HVC0NF=10 

PARAMETER MN5PDS =4 ,MNECINS=5 ,HNOCF : 10, HNTEQN = 5 , HTNOCF = 10 
COHMOM/NUM5/NL,NA 

inCLUDE CDLl.LIST 
PROC 

COMMON /C0NF/1SYS( 3) ,IAPUSD (3 J ,TP,NOS,P( 3) , STVLV 
INrCG^’R STVLV 

COMMON /RATES/RATE IKMA t ,H««MNA > ,DEF1HNA J ,CG LOAD, ALT ,XMACH 
COnnOM /T7HES/1START ,ISTOP, IEND,NCL,NPTS,NPLTS 
O , IPHASE .1 VFL AG ,N0L2,T TIME, lUNIT .FREE 121 ,FRN0I4I 
O ,CL'I014» ,TPCALL14) ,ECTPAN<3l,LTYP£,XTPN0,LPHASEiN« 
o ,1STAT,ICARD,LUNIT 
COMMON /T/.PRAY/ T 1 IQOP > ,MPT IMP I 
COllUON /TRAJ/ INOEX(NR) fIFTP 

C0HMON/KAfES/NAME(2,MNL), TACTNO < HAL ) , NHODF ( 3 > , ISPED I 2 » , I LOAD 1 MN A J , 
O IVEHIMNLI ,A,CTNAM(HNA,2) 

INCLUDE CrL2,LIST 
PROC 

COH“ON /GFAD/rGRADlHNL,21 ,FLGRAD<MNL1 

COMMON /LKGS/PSLKG(MNLJ,SVLKGCMNL),XPSLKG1MNL) sXSVLKClMNLl 
OjALTFLR IHML » 

COMMON /LMMTRX/LMHl 3,MNL> , IPTRl 3, 3, 31 ,ICODE 13 , MNL ) , I AS GN IM NL > , 

0 MI VI MNL ) ,1 SI VI MNL » ,ISUV1HNL 1 , 

0 HUNAM(2,MMV) ,MVSYS<HHVl,MVVEHtHMU ), 

0 SVNAIU2,MSVJ , 

0 GWVNAMl 2,HSUV»,SWSYS1MSUV1 

0, VCONF IMVCONF I ,NHV ,NSV,NS«V ,N VCONF 
INTEGER VCONF, SVVCH, 


HUNAM(2,MMV) ,MVSYS ( H H V I , M VVE H t HMU , 
SVNAIU2,MSVJ , SVVEHlHSVl SYS! MSV j , 

SHVVEH, SVSYS ,SHSYS 


DIMENSION OWRKMMAI 
DIMENSION CHT17) 

REAL NOOATA /’NODATA',/ . . .. 

NAMELIST/DB 1/ I S T ART , IS TOP , I END , lET P , I ST AT , TP , T (6 60) , T 1 6 61 ) 

MAHCLIST/DG2/ 1 

DATA ISYS/301/,1 APUSD/301 /„ISTAT/1/ 

C IF USING CAPO INPUT READ RESTART DATA 
C TEST FOR MISSION STOP TIME 

IF (ISTOP .EO, 0) GO TO 1 

ISTAR^:0 

IST0P=0 

GO TO : 


CQCOOP 
COOOQD 
CODOOO 
CODGDO 
CDQDOn 
LDCCCC 
cnoDoo 
cooDoa 

COOODC 
CDOOOO 
COOOCO 
CDCOCO 
LDCGOO 
COOOCP 
CDOnOD 
COOOCO 
coGoor 

CO GOOD 
CDCnOD 
CDCQOO 
COCOOP 

cocoon 
cnoooo 

COCOOP 
COOOOO 
COOOOO 
COODOP 
Goonoo 
cnaocc 

COOOOO 
LOOOOC 

ooocoo 

COOOOO 
COCODO 
CODOCD 
COCOOP 
1,0DQ0P 
COOOOP 

SAcooopg 

'f*\COCOOO 
a ^COOOOO 

Zc ^ODOOO 

^ '^‘CDOOOD 
CDDPDO 
LOOPCl 
COOC02 
oOCOOT 


-It gi 

o S 
§?' 





170 

/■ 

1 IFl IP .GT. T(o65)) CP TO 09 

CPDCOS 

CC1<j5 

U* 


IF (I-'-pD .CO.. 1 > GO TO 2 

1,00010 

cniitT 

190 


IF fISTAVT .NE. CJ GO TO 50 

cnooi 3 

cai't? 

ICO 

C 

C00013 

CD 147 

210 

C 

READ IW T-ARKAY 

lT0C13 

cri47 

220 

c 

1,000 1 3 

COISI 

220 

2 

IF (1(999) .EQ. l.CI ISTAPT= 0 

bCOCU 

CD152 

240 


IE1P=: 

L 0 cr 21 

CC1=4 

it* 


ISSTftr:0 

CPf022 

CC ICC 

2 6 ’* 


5 rtiP ( 5 ,6 »E'.D = lDO) I 

6 FDRf'AP (13) 

CO 00 2 4 

CP16C 

270 


LCCC37 

CDlf.1 

2 bO 


IF (1 .EC. R99) GO TO 20 

L0C032 

C0163 

’ 290 


IF (1 .LT. 401 .OR. I .CT . 650) GO TO 9 

CO 00 3 5 

C016'j 

;ro 


IF {I(o62> .GT. 2) CO TO 14 

uDC053 

Cf'167 

310 


RFAP( : •>, 12) I ,OAT A.Cf'T 

1.DCG57 

C0:74 

320 


12 FCRPAT (13, IX,A6,14X,7AS) 

400G71 

Lri 73 

! 30 


IF (T( JvD.FC.OlkRITEdS.Piail.nflTA.CHT 

1,00071 

{-r* *7r* 
w* w >. «• 

340 

912 FOfit Kinx,! 3,lX,ft5,14X,7A6) 

lOOICS 

CDCf’4 

J 5 o 


CO TC 13 

lDOICF 

CC2Q5 

360 


9 RFAC (3P.11) I.OATA.C'tT 
11 FPPt'AT (t3,lX,F2C. 0,716) 

IF n (991 ) .EC .0) WRITE ( 15,91 1 )I ,OATA ,CMT 

CO-0107 

CP21C 

370 


uOOl 20 

GG213 

360 


000120 

LP 221 

590 

911 FPr.’:AT<lX,I3.1X.F2D.lD,TA6) 

6^01 35 

crcc 2 

4C * 


13 T(I) = ''-<TA 

C.001 39 

CP 223 

41 V 


GO TO *, 

KCA.t<d,U) I.OATA.Pt’T 

L00137 

CC22-* 

42v 

14 

c'0014 1 

OD231 

4 30 


IF (f ( ’91) .EQ.C) WRlTEdS, 911) 1, DATA, CMT 

L0C152 

C0237 

440 


If'ATA = ’JA7A». 1 

CTC17P 

CP24C 

4 £0 


Illi’FXl I-4C10) = I0ATA 

- LOr221 

00241 

460 


CO TC 5 

L0C203 

C0242 

4 70 

2C 

READ { 33, 111 I, DATA, CMT 

LCG205 

C0247 

4C* 


IF(T(9'>H .EC.G)WRITE(15,911 )I,DA7A,CHT 

L00216 

co:s5 

4 90 


T< l) = 3«TA 

C00232 

Ctl25t 

5 Co 

913 F0'?MATtlX.I3./> 

C00235 

C0257 

Sio 


TP = T(56C ) 

G0C235 

CR2f 0 

520 


IF (A )3(T(997)-1 .0).LE.p.p1) T ( 66 1 ) = ( T ( 661 ) /36CQ , oT ( 998 ) ) , 

000227 

uP2fc2 

6 3o 


IF 1 A« 3(Tl997)-2.n) .LE.O.Dl) T ( 66 1 ) = (7 1 66 1 ) / 36C0 . ♦ ( T ( 99 3 ) /3 600 . ) 

LQC25 1 

CP262 

540 


0+T(59'1 ) ) 

C0C251 

C0262 

bSO 

C 

IF HRST "ASS CALL SYSOAT 

Cn0251 

UP262 

560 

C 

IF f.CW EY'-TLmS data has deem read IM RECALL SYSDAT 

1,00251 

cr 2£4 

5 7* 


IF ( ISTAPT .,NE. 0) GO TO 5C 

L0C266 

CQ264 

CC264 

j 60 

590 

C 

C 

CEKERATL LOSS MANACEHENT MATRIX 

C0C266 

C0C266 

CO 266 

6CO 


CALL SVSCAT 

CQC270 

00267 

610 

620 


N0L=S1 

C00272 

CC267 

C 

CD0272 

C.027C 

630 


50 ICARD=0 

00C275 

C0271 

64 V 


IF (T:662» .LE. 0) GO TO 51 

L00275 

CO 2 71 

650 

C 

10 02 7,5 

CP271 

660 

C 

istpt = i t}f ad f,rxT time from tape 
15TAT = : U''0ATC with data from tape 

i,P0?75 

CP271 

67 V 

C 

CDE275 

CC271 

6f ^ 

C 

istat=3 data has been UROATpd with restart data, ready to process 

L.n D? 7 5 

CP271 

690 

C 


400275 

C0273 

TCO 


GO TO (55,60,79) ,ISTAT 

LDC3C0 

Cri274 

710 


79 ISTATr-' 

1,00311 

0027!; 

720 


CO TO 20 

1,003 1? 

CC270 

T.’-* 

C 


LO 0 n 7 








74^ 

f 

6CT UP 07'T iKPAV TCP CARD INPUT 

l'1C312 

ui, 4 75 

75« 

c 


C0C31* 

L::r76 

76 ■< 


31 ICA'P-* 

uT0314 

L0271 

77' 


CC 52 I = l,f<A 

L0C3 15 

cozns 

> 7Cv 


ourr T« ’ iru.o 

L0C322 

cr3:;5 

7U# 


HIM I): .0 

L0C32? 

L'P3r:4 

5C« 


52 orr (I l:-.'- 

LD0323 

n3C{ 

-1-f 


T(oC0*-T(b5i» 

L0C325 

cp:'’7 

V C ^ 


ISTAT:'. 

1.00327 

cnzii. 



re TO '0 

Lrn33J 

cr’ic 

U4'» 

c 


LQC331 

crzic 

C5-> 

c 

HCAD NCV i'ATA FPOM TAPE PHASE ROUTINE 

L00331 

C^31C 

C 

c 


CPC331 

CC311 

£7- 


55 CALC ‘HrASE 

L00333 

50211 

66 1 

c 

ir EfJO OF TAPE JUMP TO NEXT RESTART 

LG03 33 

LP 5 1 2 

fcV>? 


ir a'MP ,EQ. U GO TO 64 

uPD33« 

CC -14 

7-4 


57 IF (‘/•'Tdl .GE. T(6 p5M o'’ TO 99 

COCSI" 

l'O Jl^ 

91 > 


in A M r 1 )-T (6;6I > ) AT,5n,c£, 

L.QC34’' 

C'llt. 

92* 

c 

IF PCSrtK’ : rpy TIMF ON TAPE REAP RESTART DATA AND PROCESS 

lOC34T 

5'i31b 

9 2* 

c 

UITP rcy PATrt FROM TAPE 

• ^00343 

LC321 

94-i 


5c ISTfT-2 

EGC’SC 

CC32Z 

9 54 


T(o=0):T(661) 

L0C352 

CC223 

9 6>> 


CP TO 2 

CCC354 

CC323 

97« 

c 

IF Tire 0‘J TArc CT RESTART READ RESTART DATA ANP PROCESS 

^22354 

O' i2Z 

T C 4 

c 

VITH PL' "'T,i FRC*1 TAPE 

L''C3 = 4 

CC j24 

96-v 


56 ISTAT - ■ 

UDC356 

CC325 

106/ 

64 C0IiTI''5£ 

lOC 3&P 

C022C 

iLl* 


T1o6C1=T(661) 

LDC36D 

CC-327 

1C24 


GO TO 2 

1.00361 

CC J?7 

irjo 

c 

UPLAT" with data FROM PHASE 

• U.0C361 

CP lit 

10 44 


59 CONTINUE 

C P P 3 6 1 

UP 231 

lu5u 


6L ISTAln 


£,r332 

1-6* 


TPrJRT (It 

C0C364 

cr333 

ll'7> 


03 61 !=1,NA 

L0C40’ 

CP336 

1-C ■> 


61 OR ! i: CRT! I*1 > 

lC 24 02 

C034C 

1 J94 


DO 62 J=l,hA 

unr'4 11 

UP 34 3 

110* 


HM (I ) :-RT t I+NA* 1 ) 

L0C4 1 1 

CP 344 

lllv 


IS'JI .-PA + 1 

LP04 I’ 

CC34 5 

112> 


62 nmi )=t,RT( I + ISUB) 

orgu 15 

UPi47 

1 U* 


ISu. A ^ I.A ♦ 1 

1,004 23 

C035L 

114V 


,‘LT=y<M U*1SUGI 

C0G43P 

CC3fi 

115V 


CGL0A'1 = DRT ( 2+ISIJB) 

UC043? 

CO 352 

lU* 


X'lArM*. kT ( 3 + lSUD » 

L0C4 34 

01-3 52 

117v 

c 


C0C4 34 

00352 

lie* 

c 

OVEFLAY RATES FROM CARD INPUT 

lP04 34 

CP352 

119* 

c 


lCC4 34 

cr352 

12P* 


66 DO 92 1=1,15 

C0C437 

0C356 

lOlv 


J=b'’6« (I'-'-t 

1.00444 


122 / 


K = J*1 

LP2451 

:ro6& 

1^3v 


I'' = T( Jtt.l 

I.PC4 5 3 

CP-01 

1 24 > 


I .=,IK+ 1 

L0r464 

CP-62 

1^5v 


GC TO (91 ,92,93 ) ,IR 

lOQ466 

error 

Ut* 

c 

process TRANSIENTS WITH NO OVERLAID RATES 

1.0C466 

tr -62 

127-> 


9 1 t'A rr ( ' lAOURii It 

U0P4 77 

CO 364 

12 5* 


CO TO 'P 

C0P5P0 

CO -f 4 

12 9X- 

r 

F'fCCCSS T-^'v5I[ NTS WITH OVERLAID COMMANDED RATES 

Lnnspp 

u 0 — 6 — 

1 -r V 


u: uA r ( n:i (k)+owpt(I> 

Lproop 





!S11R 


C^3f.C 

LCItC 

zrzi7 

CC571 

rci73 

C''37i. 

*r> 3 7*^ 


1 J 1* 

i::« 
1 j:> 
1 

1 • 
li7«' 


cr:"’5 

ICf » 

C GVtRPIDf 

00377 

ICS ' 


30 4 6 ’ 

>-F ^ i. 

l-li , 

96 

RATE ( r > 


14 1^ 


(lO 97 ' 

D'"407 

14C* 

97 

IK (A^r. 

C3412 

14?=X 


UO ll" 

0041 5 

144 V 


rr <T ( ; 

D"417 

14Ev 

110 

IF (T « : 

C'’42^ 

1 4 6 < 


IF < T ( >, 

I,r 4 '4 

14S» 


IF 1 T f I, 

D04C4 

14i >< 

C SCT 

v.'Lvr c 

D 0 •) 2 o 

149A 


J=T(o'; 

4.0427 

15lA 


STVLV^l! 

i-n K r, 

1517 


RE TUR-; 

CO 4 31 

15C« 

09 

I DTCPH 

D04I2 

1537 


RETIJRM 

C0433 

154? 

l'’U 

IC'.fA 1 

C"474 

15Sv 


iSTrp=i 

C0 4 35 

15t-? 


RFTUfi!' 

C0436 
DLD FOR 

157v 


DUO 


r ^ rc *" ** 

C P«'C<~E£3 T-' \S1lWTS WITH 0VE'JL41f) FLUID FLOW f?A7ES 
93 IF (T (, ) ,jE. 3) !' = 1 
U (T ( , ) ,LT. 0> M=3 
II = IL0Ari I) 

9D : I:T (K > ♦ CWRT ( D 

9C CCMl .uc: 

T-ARRA Y 


n ! I +6< 

I = lf 3 


I .GT. Q) IAPUFD(I>=T<I* 67 n 
.GT. 31 f,LT = TI 67 n) 


LOi^SCE 
lOGGCS 
C005C7 
DOQ516 
C00524 
L00S26 
1,3 05 3 7 
„0C'D3 7 
1^0537 
L0C537 
30^544 
DnG544 
L0CS55 
LPC555 
LOOSfcf 
LCGG1? 
unL6^'7 
>.03607 
LCj0614 
000626 
lOGo30 
wOC634 
L0C635 
C0C641 
CnC647 
L0C64 2 
cOC672 


mi 

) 

oi 


at 

■«§ 
o ^ 

a ? 

'^1 



f cr, c ( II 

Ofv - 


z/v ,t .( H.'zr/Jt 

" ■' : 9 :31 (2 1 , 


St'=(ROUT2Ki: PHmSL fJTrv roiM 001231 


STCh'.*CE L'5£D: COCL«l» 0 jl 2 <t^, rftTA( 0 > QOI 2 T 2 ; P,UflNK C 0 ('H- 0 M( 2 > OmODD 


C^MMCl. ftOCKt ; 


L 1G3 


(U‘:s 

3CCPG2 



















CONK 

V l.214 

















21(J5 


F ATLS 

■•£ bl 32 

















C ",oC> 


n-'cs 

1 '-^24’ 



















TARRAV 

' 1-2 1 26 

















C?1D 


Tf A J 

ol37 

















cm 


f A'*CG 

"Li.42'1 

















E\ r£K' 

AL 

, RlFEFE''C^S (SLOCK. L 

ANE ) 














COIP 


Sd’''!. 


















C?13 


COS 


















^ M4 


SI ( 


















L-^IS 


M.RF O' 


















L')16 


IdiGUl 


















C017 


M03? 


















ZIZO 


M025 


















L ~21 


t UOUI- 


















C 02 ? 


(.ICIS 


















C^ 2 J 


TA.'i 


















L'124 


AT AN 


















CP25 


fsERR 3‘ 


















STORAGE 

ASSiGf.f 

CUT (SLOCK, TYPC, RELATIVE LOCATION, 

NAME) 










CDCl 


CO'1131 

I'lL 

O’’ n 


200411 

lacL 

CCOl 


coaiTO 

12L 

CQDI 


222002 

1362 

COCl 


r no 2 1 4 

15L 

C '1C. 1 


r • -1 -* 7 

‘If.L 

b" 1 


IIOOUS 

16 1 G 

con 


COC377 

17L 

com 


n0'’40Q 

ISL 

22. LI 


prr .532 

1R5L 

t "Gl 


[ 1 3SS ( 

1' 6 L 

ij" I 


VG57r 

103L 

Cf'Cl 


(1QC612 

19CL 

COCl 


cC'-232 

20L 

C2C1 


rrj'irp^ 

2CCL 

COCl 


C'j.'dCS 

CiC 1 L 

1 . ' '1 


CB017S 

204 0 

O'lCl 


rccjss 

21L 

roci 


222202 

2116 

'TCLl 


roe:rr 

2 14C 

r '101 


C J 16b £ 

22G L 

z ' n 


'120702 

22dL 

ooc: 


CCC242 

2 37C 

COCl 


022254 

247C 

era 


CC227C 

257C 

COGl 


CC.027t 

264 G 

a "'H 


''UC3r 3 

271C 

roci 


COC306 

274G 

CCDl 


0227D2 

3C2L 

CC..1 


eC0717 

3C3L 

C3.n 


11’0761 

If SL 

G LI 


001103 

307L 

non 


conn 

3C9L 

reel 


222727 

310L 

QCLl 


206712 

312L 

LfiQl 


C J 11411 

-J 2 .. L 

C'-l 


000351 

3210 

n r» 1 
« J 1 


nOC357 

3?6G 

2201 


r2£'4n4 

34 62- 

C2U 


nC2416 

356C 

C<^Dl 


co'iyot 

3C 4G 

0 " •! 


00 ICO 2 

4D5L 

oori 


C0Q541 

425G 

COCl 


222433 

45L 

2001 


22 '' 66 3 

4C6C 

c"cn 


CGJoo: 

4 cF 

d!‘ "1 


022677 

4 6 60 

OOCl 


C'JL714 

4766 

cnci 


rc'1252 

5CL 

era 


rrr46C 

SCCL 

0 fic l 


GL *1 4 6 7 

SOIL 

i. ’ '1 


1324S2 

5C2L 

r* r> i« “1 
W ^ w U 


roC533 

5'*3F 

2201 


or "7 51 

erse 

era 


C217SL 

51LC 

; ’'(H 


COICU 

■,2 6 C 



O'Jlirs 

54 60 

con 


Ccn26 

5576 

reel 


221164 

5 726 

coa 


pen -.I t 

6 5L 

L ''t l 


L 

( 6 L 

.. '1 


‘'0 22 3 7 

7 2.L 

r"if 0 


rc'476 

9"rr 

2 ccn 


ci-'sn 

■•il'JF 

cr ii 


n n ^ 2 

ACT! AK 

£ VO 

R 

. J“G' i 

'Ll IIA 


r 

■'304 4S 

ALRAO 

cnnj 


CbCl 50 

ALT 

'•CC5 


r' 1 '’i 27 

CCLCA2 

'TL 6 


o‘-n - 31 

CLNC 

C 'Gu 

R 

C '.'’4-tfc 

CCSAL 

L * - L 

h 

''JC467 

COSOH 

CCC 2 


CO 24 71 

C 4 

COGS 


rC'’'' 72 

err 

CLCC 

R 

i"CT£ 

cr 

G TGO 

R 

6U?o44 

C'l'l, 

v» ” ' •* 

R 

23L456 

L'U 1 1 

♦'i n I* n 

•. w ^ J 

n 

r 

0024=7 

DIIH2 

2226 

p 

O' '"2 3 1 

rCTPAN 

C2uC 

R 

-i-r EC L 

EOF 

G'V 6 


"G'lC'li 

f • t r 

' J 


'DO''! 5 

r rijo 

npns 


002035 

Hf' 

CCC" 

I 

CL '4 4 4 

I 

re u 


e'.'’ 1 ’•. 

lACT- C 

C-’L.'t 

I 

r 'T 1 i 

i/.r uGo 



O.On -4 I 

JCA'U 

W «. U 

T 

4 

0G''4 6 2 

1 '' 

-2C2 

I 

n r f,(, n 5 

’ 2 U" 

jC ^6 


n ' r> p ~ 

i - '> 

G " 1 r 

1 

toil '| 

U 1 £■ 

^ % 1 


OdcriT 

I L 0 A 0 

r'l jn 

T 

C! J ID 

1 ' DCy 

'’Don 


2 r. n 5 6 

T' Jfs 

•: -c 

I 

n A.^ " f 1 

I"l . .F 





JMSVSSiSiSSE 


cr.r 

1 

LJ0453 

IS 

3211 


000215 

ISPED 

0006 


OOOQOO 

ISTART 

C006 


000040 

ISTAT 

C0C6 


C^'OCOl 

ISTCP 

L '' ’C 

1 

LL04£4 

isur 

o-:c 

T 

•■0 05 3 6 

ISYM 

0004 

T 

onoooo 

ISYS 

coon 

1 

0004 50 

ITYPE 

30 C6 

I 

ccnoi 2 

lUMT 

Cl 1 


GOOrEA 

TULH 

^"06 


000007 

I VFLAG 

0000 

I 

000454 

OCOODO 

J 

CDD6 

I 

none 36 

LPHASe 

□ 0C6 

I 

000034 

LTVPE 

C006 

I 

LCPU42 

LUfdT 


Y 

i 

QOCCOl 

RA 

DOU 


NAME 

C003 


000000 

NL 

0011 


000212 

NMOCE 

COCO 

R 

CC'’0C3 

I.ODAT A 

o'loe 


O0Dr03 

NOL 

0006 


OOCOIO 

N0L2 

CDD4 


000007 

NOS 

CDC6 


CCOC05 

NPLTS 

C706 


C00004 

UP T S 

one 

I 

n0Q037 

NW 

0004 


OOCOID 

P 

cooo 

R 

0 C 04 6 6 

PHI 

DCCO 

R 

P00452 

PHSTRT 

C"GO 

fs 

CJOU02 

FI 

crjs 


onococ 

RATE 

0000 

R 

CC0447 

SINAL 

0004 

I 

000013 

STVLV 

00 1,0 

R 

000536 

SYM 

LCD 7 

R 

LDOL''Q 

T 

O'* 3C 


0DG536 

TDUH 

DO CO 

R 

000304 

TMPOTL 

COOO 

R 

C C 04 6 5 

TLGnxN 

00L4 

P 

OOPCOb 

TP 

C!'^t 


C0002S 

TPCALL 

op-^c 

R 

000451 

TPUO 

00C6 

R 

030311 

TTIHE 

COOO 

R 

0Qn461 

TB04 

00 lQ 

P 

Pn0462 

TP.0 5 

LOCO 

R 

rco46: 

Ten 

c:o7 

F 

PG175C 

V.PT 

0005 


DD3131 

XHACH 

COCCI 

R 

0CCDC7 

XPOS 

COCO 

R 

00047C 

XTII'E 

u t.ij b 

R 

C00G3S 

XTPUC 

3C0C 

D 

OOQ534 

XXDP 










SIE* 

1 f 

2*> 

C0103 

2<y 

CC104 

2^* 

CO 104 

2-> 

on 105 


CO 106 


CC IC£ 

2 * 

CO 1C7 

C-» 

C7 1C7 

3>!‘ 

03110 


com 

3* 

CO 112 


con 3 

00 113 

3* 

3» 

com 

3>x 

com 

3* 

C0il4 

3* 

com 

3» 

rent. 

3« 

C0116 

37 

COllC 

3*> 

com 

47 

C312C 

5 f 

CC121 

£7 

CO 122 

7v 

00126 

£« 

CQ127 

9* 

COl 30 

1C« 

00 132 

117 

GC133 

127 

C0134 

137 

CC13S 

147 

CO 140 

ICv 

C.C 142 

167 

C 0 143 

177 

C0144 

107 

CP145 

197 

C0146 

2C7 

C0147 

217 

CO IRC 

227 

com 

.23v 


sUbP’OUTrijr Phase 
IMCLUnC PAR, LIST 
PAR PPOC 

PAPAl'.CTER KRA=29 ,NR = J*HNA ■>7 ,HNL = <* 6 ,NG =HNL ♦ 1 3 , MKV = 9 , M SV = 9 ,M SH V=9 
« ,MV''0f.F = 10 

PARAMETER MNSPDS=4,MNCQN5=5 ,KN0CF=10, RNTE0N=5 iPTNOCF^lO 
COMhOt'/NUH5/NL,NA 

Lt-ID 


^ b I VLV 

,CGLOAC, ALTfXHACH 
•NPLTS 


, ,FPR0(4» 
,LPHASE,N'H 


COHMON /TAKRAY/ T ( 1020 1 ,W PT I RR ) 

COHMO-I /TPAJ/ I.NOrxMJR) ,I FTP 

COIIfO’I/KAt'E S/RAME 1 2 ) , lA ETNO « ^t^U , NMOOE ( 3 ) , IS PED « 2J , I LO AD UIN A I , 

* IVEHIMNL) ,ArTfJAHlHIJA,25 

DIHFl.SIOIv DP(3) * 

DOUPLE PRECISICN XXDP 
ECtJIVMEt.Cr IXXCP.OP) 

DATA rcF / • CO F V , \LPII A / 34 . 6 3/ , P I / 3 , 1 H 17 / 
ecuivtlchcl (SYMin,isY^m) 

ECUIVALfliCE 1 SVM <l ) ,TOUM« U I 
REAL ‘JODATA/’NODATA*/ 

DTHFR‘‘!Cfs THROTL < 3» , XPOS t MNA 


REAL ‘JODATA/’NODATA*/ 

DTHFR‘‘!Cfs THROTL < 3 » , XPOS t MN A > 

OTMEfJSIOR cun (25 6 > , I S YM ( 2 56 ) V S YM ( 256 1 ,TDUH(222) 
N'AIIEL rST/D2 /OUM 
DO ? U1,CR 


u u i i A 1 , t; R 
WRT U 1 :C.r 

AL( ACAUPHA >.->,*PI/360. 
CO^AL:i.rS( ALRAD) 
51NAL:Slr,(ALRAD) 

IETP:'> 

ITYPE=TU)62> ♦ .1 
LUSTllTSl+.l 
Iu:.-1T:T(i>6 3) + .1 


^ as 

n© 

O 2 

S'p 

■g? 


00 0000 
lOCCOO 
uoocon 
COCCCQ 
CD€000 
LOCOOn 
1.0C0Q0 
COCOOO 

LOCCCO 
f Q r p '• n 

LCCCCO 

I.CCCCD 

CnCCGC 

COCTCD 

cQOCPD 

lOOCCO 

LO^'ccn 

Locnco 

lCCO''" 

L03EDP 

COrCEO 

cooccr 

COOCOC 

COfTCG 

COCDCO 

LOCDOO 

uOCOOC 

COEDCC 

CQCCCO 

(.OODOO 

LOOCDO 

COOCOC ‘ 

lOCCC? 

LaC0C2 

tOCOC' 

cocric 

COf'014 

C0C02F 

C0CC21 

coco 2 2 

C0'"G43 

L00054 





C0152 

24« 

L0153 

25* 

CD1S5 

26* 

C0155 

27* 

CP1S7 

26* 

CC157 

29* 

00157 

30* 

C0157 

31* 

CP160 

32* 

CP 163 

33> 

coie5 

34* 

6C17C 

35^ 

EC17C 

36* 

CP170 

37* 

CC17D 

3C* 

CD170 

39* 

60171 

4C* 

CO 173 

4 1* 

LP174 

42* 

CC176 

43* 

CE201 

44* 

CC2C2 

4 5* 

CC2D3 

4 6* 

CC2C6 

4 7* 

C''ri(3 

4o* 

C0213 

49* 

00216 

50* 

C022C 

51* 

CC221 

52* 

CC222 

5 3* 

COC24 

54* 

00 226 

55* 

00232 

56* 

C0232 

57* 

C'’233 

5b* 

00235 

59* 

00 24 3 

60* 

00245 

61* 

C0 24S 

62* 

C0245 

63* 

C0245 

64* 

DP246 

65* 

CD251 

66* 

C02D3 

67* 

C0263 

6b* 

C0266 

69* 

CC270 

70* 

C0273 

71* 

C0276 

72* 

C0300 

73* 

00301 

74* 

CC3C2 

7 5* 

CO 304 

76* 

0(3306 

77* 

C0312 

76* 

00314 ■ 

79* 

CO 3 1 5 

eo* 


IPHASFZT I £6<() ♦ .1 

IF aPHiSC .NE. LPHASE) PHSTRT=H66Q» 

IF CLTYPE .EC. ITYPE .AND. UUNIT .EQ. lUNITJ 
V no TO 120,70,100) , ITYPE 

GO TO (10,50, 100) , ITYPE 

fio’uTINC TO PEAD OUTPUT TAPE FPOH SSFS 

* 

10 DO E 1=1,256 
S ISY(i( I)r5 

READ (U'MT) ISYP 
IS = ISYIi(2r6) 

THE 256TH WCRP OF THE FIRST RECORD UILL CONTAIN 
SSrS HOD A.L2 N+1 

SSFS HOD A.r3,5 N 

WHERE N=NO OF VARIABLES LISTED ON TAPE 
IF ns .EC. ISYM(IS + 1>) GO TO 12 
IS=1S-1 

IF (IS .EC. ISYHtlS+D) GO TO 12 
WRITE (6, ROD) lUNlT 

900 FORHAI (IX, ’INPUT UNIT ‘,13,* IS NOT IN SSFS FORMAT') 

RETURN 

12 00 13 1=1, NR 

13 IHL-CX(1)=C 
DO 1C 1 = 1, HR 
DC 15 d=l,IS 
IF tT(<l''0 + I) 

INDEX ( I )=J 
CO TO If. 

15 CONTINUE 

IF (K4C0+I) 


,NE, 


,EQ. 


SYHI J) ) GO TO 15 


_ , 0) GO TO 16 

910 FORHAT'liy?'NO KiTCM°WAsVoUND FOR DATA NO *,13, ‘ WITH* 
* • SYMBOLIC NAME ’,A6,//) 

16 CONTINUE 

2U READ (lUf‘IT,END = 45) (P UH (I ) , I = 1 , IS ) 

IF (UUlt(l) .E13, EOF) GO TO 45 
GO TO 21 
C 

C ROUTINE TO READ OUTPUT TAPE FPOH SVDS 
C 

50 DO SI 1=1 ,256 

51 ISYH< I ) =C 

READ( rUNIT) IDUH, 1S,<SYM(I ) , 1=1 ,1S ) 

DO 64 1=1 ,NR 
64 1NDEX(I)=C 
DO 60 1=1, NR 
00 65 J=1,IS 

IF (T(4-;0-*I) ,N£« SYH(d>> GO TO 65 
IM0EX(n:J + 2 

GO TO S6 . ™ 

6 5 COt(TI‘IUL' 

IF IT(4.jCi’I) .EO. 0) GO TO 66 
WRI TE ( IS ,910) I,T(400+I) 

66 CONTlflUE 
IS=!S+2 

70 REAO( IIJHI T,EN0=4 5 )DUH1 ,DUH2 , (DUK (I ) ,1 =3 ,I S ) 


L0C056 
DO 00 6 7 
000074 
l0Q074 
C0G120 
600120 
C00120 
600120 
uPC133 
uocin 
CODl 34 
600143 
600143 
CDC143 
COC143 
6CC143 
6'’C1 46 
CeCl SO 
L0C154 
EDCl 56 
COC164 
1.0C1 64 
6DC1 7C 
60C1 TS 
LGC20S 



C0C2CF 

600205 

000210 

l.00212 

600215 

l0021S 

L0t217 


0002 J2 


CDC232 

L00232 

C0023? 

000245 

L00250 

L0C250 


t0C250 

C0C25C 

600254 

U O' 

L3 

L00254 

LOD25S 

)Sr ^ 

O S 
n fS 

CQC276 

COC276 

C00306 

13 - 

C0D305 

L00306 

C0C311 

15 

C0C314 

LCD317 

C0D317 

TSu 

600321 


000333 

C03333 

C0C337 







C0315 

1 1*? 

C 


LC3I5 

620 

C 60AD DATA If.TO WRT ARRAY 

6C615 

b 30 

C 

... . 

C03"'5 

640 

21 

DO 18 r=l,NR 

L033C 

b 5 0 


IO = IROEXa J 

C033I 

66* 


IF Ut> .60. 01 GO TO 17 

CP3J3 

870 


WRIUJ :DUMJIDJ . - - 

C0334 

35* 


IF (TC 2'.J*I ).LE. 01 CO TO 18 

CD536 

64* 


0P{1J = JU'. (101 

C0337 

96* 


D0<2lr3uM(10+l) 

6034J 

91* 


URMIl^XXOP 

CP341 

5 2* 


GO TO le 

^0 J46 

9 3>' 

17 

wRim =0,0 

C0343 

9 4* 

16 

C0NTI4UE 

CO 343 

95* 


00 19 I-l ,NR 

C'' .'56 

■/6* 


wPT n n«>n(i>*Tm 

c": 5 i 

97* 

19 

CC‘;T1M;E 

on 353 

56* 


00 TO 200 

CP354 

99* 

1Q5 

COf.TINUE . , . - 

0P354 

ICC* 

C 


cn;s4 

161* 

C KOUTlro 10 RCAD BINARY TAPE 

6C355 

1G2* 

100 

DO ICl 1^1, NR 

C'’3t2 

1 k. 

101 

WRHI nc.o 

60162 

lo4 )■ 


RCAO( ItJ*'IT,END=4 5 J (DUM ( I) ,1=1 tNU 1 

63;‘'3 

ICl* 


GO TO 21 

cone 

iJt* 

c 


C1276 

127* 

c 


C0 3‘'C 

1C67 

C END 

OF TAPE IFILEl HAS BEEN REACHED 

C0 3 7C 

1C4* 

C 


C0371 

lie* 

45 

IETP=1 

CC372 

in* 


WPIT£(15,46»IUKIT 

C0375 

112* 

46 

FORMATC END OF FILE OM UNIT ',X6,//> 

CP;7t 

112* 


WRITLilS,S03)WRT(l),T«665 1 

00 4 '•'2 

114* 

503 

FORMAT ( 1 

60403 

115* 

502 

IF <T(781) .EC. 1,0) CO TO SCO 

004C5 

116* 


IF n(7P3» .EQ. l.OJ GO TO 501 

C0407 

117* 

500 

IF (1(99?) .EC. C.OI CALL SUHI4 

60411 

lie* 


RETURN 

00 412 

119* 

501 

IF 111999) .EQ. D.D) RETURN 

00 414 

UC* 


TTIHE7ttihe*T(665)-TP 

0041 5 

121 * 


CALL SUMM 

C04 16 

12 6* 


PC TUK‘1 

C0416 

123* 

C 


CP416 

124* 

C ADJUST TIME 

CC4 lo 

IZS* 

C 

i 

C0417 

126* 

200 

T6P4 = T(8D4)/3600. 

C042C 

127* 


TB05 : T(6G5)/36CQ. ' . 

00421 

126* 


Tail : T 1 Cl 1) /36Q0. 

CP 42 2 

i2S* 


LRT(1 )=W(!T(1) ♦ PHSTRT •> TI659) 

00422 

136* 

C 


0 0122 

131* 

C OUCRLAY ENbIt.C CONTR066ER TRANSIENTS. . 

CP422 

i;:* 

C 

♦ 

60423 

132* 


CO TO (11)5,185,185) ,ITYPE 

00424 

134* 

185 

CO 191 1=1,3 

60424 

135* 

C SET 

Tt'RoTL TO Initial thrqttlf setting 

C')427 

1 jt* 


isu6=( 31 

C04 36 

1 .,7* 


IF (THI.OTld) .EC. 0) THRPTL ( I ) = WKT (1 


-¥i^ 

•^1 
o « 


000337 
LQC337 
C0C337 
CD0357 
C00357 
000360 
CQC362 
t00365 
000370 
CQC371 
C00373 
cnc375 
CD0377 
600604 
C0Q4C4 
000404 
000407 
CQ04C7 
600411 
C00411 
CD04 1 1 
C0C411 
C0D4 It 
LDP4 17 
(,00431 
CDC431 
L004 31 
G004 31 
L00431 
0004 33 
CD0434 
LD044? 
C0D442 
C0D452 
L0C452 
L00454 
L0C46D 
L0C463 
600467 
600473 
000477 
C0C5C1 
C0C5C1 
COOS 01 
600501 
C00505 
C005C7 
LDCSl? 
L0Q515 
L0C515 
I.OOS15 
LOCC 15 
C00521 
C0Q532 
Q00532 
L0054! 
600546 


0) TtIRPTLI I l:WKTa*I5UBI 








GQ632 

13£6 


CC636 

139# 


C0635 

16C0 


C0636 

16 1» 


C0637 

162« 


C066C 

HB'!' 


CP66C 

1 66 > 


CP66: 

1 6 E'«> 


C0663 

16 6* 


COmijS 

16 7* 


CC663 

16o* 


CP663 

169* 


CC46S 

1 5C* 


UP 6 66 

131* 


C0667 

i £ 2* 


CC6'^1 

153* 


G0653 

166* 


CP 6 S3 

15 5* 


C0655 

156 * 


C066G 

157* 


C0662 

156* 


Cn6£2 

159* 


00663 

16C* 


CP665 

161* 


UC6 7D 

le?* 


00 6 72 

l6 3>' 


P0672 

166* 


C0673 

165* 


0P673 

1669 


CC673 

lb7* 

Cn 

1 

C0673 

16C* 


LP676 

169* 

a\ 

CC675 

170 


COSro 

171* 


C05C2 

172* 


C05D2 

173* 


CC5D2 

176* 


C0502 

175* 


CPS03 

176> 


CDSC6 

17 7* 


CPSD7 

17£* 


CO 51 1 

1 79* 


DCS13 

16D* 


CC515 

161* 


CD52D 

162* 


C0 52C 

163* 


C0E2C 

lc6* 


C0520 

165 7 


CC522 

166* 


C0S23 

lo7* 


CPS26 

1ST* 


C0525 

lc9* 


CCS3C 

19 b* 


C0G31 

191* 


CCG’'c 

192v 


CO 536 

193* 


CC153S 

1S6* 


ir (AHS(THfiOTLtI ) - URTd oISUO > • .LE. □.□□CIJ GO To 1B8 
THKOTt <I lrw,!T(I*ISUB) 

ECTRAiit n=wnT ( 1 ) 

1£6 URT(Iw3«il = T(81QI 

iS8 ir »!iRT(n .GE. ECTRANin .AhO. URTU» .LE, ECTRANtH 
•» » Ti'll ) GO TO 186 

wr?rti‘>3*i »=o.a 

190 CONTINUE 

c 

C OVERLAY RATES FOR LANDING CFAR 
C 

191 GO TO ( :t 1 , 2Q1 ,2Cn tlTYPE 

201 £, .OR. HRT< ItlSUO J.GT. TCeOlM 6C TO 300 

203 IF (TLOE,N .LE. P) TLGDWN :WRT 1 1 J 

IF (V.r’Ttl) .OT. TLGOWN + T80^ ) CO TO 225 

C ADD UPLOCK Ti.AtjSIENT 
DO iJ*" 1:19,21,2 
22 J HPT(1*1) = 1.0 
GO TC 232 

C APO STRUT TFAMSICUT 

225 IF (t-i-TlL) .GT. TLCDUN ♦ T80«i 
DO 22o 1:20,22,2 

226 k‘RT(I*l) : 1.0 
230 CONU* UC 

C 

300 CONTINUE 
C 

C SET SYSTE" KODE FLAGS 

C , . - 

313 GO TO t31-’,3l2»3a3> iITYPE 
312 00 311 l:l, 3 
311 ISYSl n:l 
302 CONTI'I'JE 
C 

C SET APU SPFCD FLAGS 
C 

311 GO TO in<^,310,310>,ITVPE - - ... 

31L DO 3Jl 1=1,3 
3C1 lAPUSPIli:! 

IF II^ilASF. .NE. 2) CO TO 305 

IF (hPni) .LE. T(802) .OR. WRT<U .GT. T<803») GO TO 305 
00 JO 2 1 = 1,3 
302 IAPUS’3(II=2 


+ T805 ) CO TO 230 


CONVERT FRL ANGLES AND PATES TO HINGE -LINE 


iCS COKTl''at 
AC** J = T (9P-1 1 ♦ . 1 

CO TC IAj5,3D7.,309 ),J 
M05 CO 306 1=10,11 
ISU8: ( 3v‘.fc^ I J 

PHl:WRTt I+ISUB)*2.«PI/36D. 

IF (1 .EC. 11) PHHPHI/2. 
COSPti=COS (PHI > 

UPIU'Uur ) :AT AM (T AhlPHl ) /COSAU) 


C0C5S3 
CO 05 62 
C0nS6t) 
CC0S67 
C0C570 
COC572 
LOOE72 
cC0610 
L006I4 
LQC614 
L0C61<* 
000616 
lOC616 
C00625 
Cf'C63C 

coot 'I 6 
1.00653 
L0C653 
C0C663 
LD0663 
L00665 
C0C665 
CD0667 
C0P677 
LPG677 
600702 
CPG7C2 
C0C702 
C00702 
L0C7C2 
LQC7D2 
L0n?02 
L0071U 
C00716 
L0C717 
C00717 
0P.C717 
C00717 
CDQ717 
U0D731 
CC0731 
L00733 
DD0756 
LDC756 
L007S6 
C00756 
C00756 
C00756 
CC0761 
600761 
..03771 
L0inG2 
LD1016 
L01D22 
LD103C 
001D36 
601062 



C0536 

195* 

C0537 

19L* 

00540 

197* 

CPS42 

196* 

CP544 

199* 

EPS4 5 

2GC* 

CCSEC 

2ul* 

DC SEC 

2C2* 

rr £S " 

203* 

CC350 

204* 

C2552 

2C5* 

CD554 

205* 

CnS56 

227* 

CD561 

206* 

CD56C 

20 9* 

CC562 

21C* 

CD5f,4 

211* 

COSOS 

212* 

C0566 

213> 

C0S67 

214* 

CD57Q 

215* 

CD57C 

216* 

CC571 

217* 

CP574 

218* 

CCS7S 

219* 

C0E77 

22b* 

CC6C1 

221* 

CD 602 

222* 

END FOR 



5Q6 


307 

3GS 


WI5T(I + ISUD)=URT< I*jSUR I#3ftD. / (2.'»FH 

WRT(l*ll-UftTH'*-l>t>COShLyjl.O-iCOSPH<‘^2>*ISlNAl.<>*2)l 
CONTjMUE^^ IIJ URTII+ISUB J=URT II+ISUB >«2. 

GO TO 209 
DO 209 I:10,U 
WRT(I+H=WRTII + 1 T/COSAL 


compute: LLCVCt rates from POSITIC^-:S 


5C9 


315 


IF 1T(993».LE. 0.00H GO TO 320 
IF UUMf .* 1 E. LUNin GO TO 320 
DO 21E 1=32,15 

RRT (I +1 I = < (WRT ( I *ISUC l-XPOS m )/(XTlHE-yRT(l))l 


» /36T. 

320 LTYPC=ITYFC 
XTFf 0 = TPl«r 
LPf^/.S': = IP^ ASE 
Llll;n =IL' iIT 
XT 1KE = -‘RT ( 1 I 

C SET XPOS TO INITIAL ELCVON POSITIONS 
DO 316 1=12,15 


316 


ISur = '> .NA ♦ 1 

XPOS 1 T l=kRT (I+ISUO ) 

IFCWR^m .CE.TI6651 

RETURN 

END 


.AND. H999).Ee. I.O) GO TO ^02 


CQ10S4 

COirST 

CD1071 

L01Q71 

LOiim 

C01105 
CQ11D5 
4.01105 
C0U05 
L011D5 
1,011 1 1 
con 14 
C01126 
CD1126 
toil 22 
L0112? 
C01144 
C0114S 
CDll 47 
CO 1151 
L01151 
con S3 
uon 64 
CD1164 
(,01166 
CQ1174 

L01211 

L01242 




;fop,s m.actdat/v6,h.actd*t/v6 
FOR S':L3-C2/06/79-16.D9:5B I<t , 


) 


SLt'’KOUTI(.E ACTCAT EUTRY POIM 000560 


STORACC USCD; CCCf. I 1 ) 000672; DATAtQJ DC0061; BLANK C0KH0N(2> 000000 
COSMON CLOCKS: 


0 '^0 3 

• KUXS 

^CL0u2 

1^04 

CONE 

000014 

1 005 

rates 

POL 132 

L ''Cb 

nt'cs 

f3[.n43 

U'C7 

7 A PRAY 

2u21C6 

c -::o 

TRAJ 

r"'oi:7 

cn 

I AI1iS 

0CJ424 

G"12 

ORAL 

0r^212 

cm 

LKGS 

00L346 

CD14 

LliNTRX 

001141 


i/i 

I 

cri 

QO 


CXTERNAL RfFEfENfCS (BLOCK, NAME ) 


r-'is 


0-^16 


cm 7 


NCR.<2x 


XPRR 


NERH31 


STORAGE ASSlGt.HEf'T (BLOCK, TYPE, RELATIVE LOCATION, NAME) 


COCl 


C00127 

ICL 

0101 


000432 

134L 

onoi 


OOC441 

130L 

COOl 


C0CQ34 

135G 

cnci 


000376 

136L 

0 001 


rooAJi 

137L 

URjI 


000401 

133L 

COCl 


000444 

139L 

cool 


000445 

14DL 

COCl 


C00C45 

143G 

DCul 


ron4o: 

147L 

Q-'ll 


00 04 61 

14 0L 

cnoi 


000477 

149L 

COOl 


000500 

15DL 

COOl 


000062 

1S3G 

cool 


C00S2C 

1S9L 

0''.1l 


000C67 

16 06 

0001 


000521 

16CL 

0001 


000536 

169L 

COLl 


00nS37 

170L 

r 001 


CDOIOO 

2006 

on 01 


000234 

226C 

0001 


O0C304 

2446 

COOl 


000124 

252C 

cccx 


0C0370 

272C 

o XJC 1 


C0r4D7 

307 0 

O^Jl 


000463 

3426 

0001 


O0E5O4 

3576 

COOl 


CC"525 

374C 

CCLl 


000127 

45CL 

C'^01 


CP0173 

400L 

d''01 


000251 

70L 

0001 


CCC275 

75L 

COOl 


C0n361 

79L 

COCl 


”01363 

ecL 

CHol 


0C0C6:, 

5L 

0" J1 


RCC277 

R”L 

ctm 


000332 

ACTNAH 

C0D5 


00”! 3D 

ALT 

0013 

R 

mn27n 

ALTFLH 

C"04 


L0ri2/ 

CCLOAD 

JR" 6 


”0CD21 

CLIlO 

onco 


000021 

D"2 

C0C5 


00OD72 

DEF 

C0L6 


Oin''2j. 

ECTRAN 

C'^12 

R 

OCOwO^ 

FGRAL' 

0012 

R 

000134 

FLGRAD 

noos 


O0CO13 

FREE 

0CC6 


orocis 

FPNO 

C0L5 


nonc35 

hP 

OCuD 

I 

C0CJ04 

1 

0130 

1 

DO 00 14 

lA 

. 0011 

I 

C00134 

lACTNO 

C004 


OCOCG3 

lAPUSO 

com 

I 

C104S7 

IASCA 

C TIG 

1 

Lino IS 

lAl 

C” 16 


U0D04 1 

ICARO 

0014 

I 

D0C245 

ICCCE 

rocb 


CCnC02 

IE NO 

crio 


CC"136 

IETF 

opon 

I 

ropoob 

iron 

n.ui 


000217 

ILOAD 

0010 


000000 

I^DEX 

coco 


000034 

INJP5 

D0C6 


00in06 

IPHASE 

ccoo 

I 

CODOll 

IPOIKT 

0”14 

I 

,000212 

‘GOOC”! 

IPTR 

0014 

I 

000613 

ISI V 

roil 


0 G 02 1 5 

ISPi'D 

CCC6 


oocccc 

I5TART 

L''C6 


C00C4C 

ISTAT 

GO.'b 


ISTOP 

0014 

1 

0C0671 

ISWV 

C0C4 

I 

DCOOOC 

ISYS 

v'J 

OOC6 


OOnci 2 

lUMT 

cm 1 

I 

C0';2S4 

IVCH 

Cl It 

I 

CJCOC 7 

1VFLA6 

OOCD 

I 

OOCOC5 

J 

coco 

I 

r' 

CCCC12 

CGLQ 

I 

CCncCC 

JSY5 

c noo 

I 

COCO” 7 

K 

0 1 '0 

I 

0C0213 

KX 

noGo 

I 

0C0016 

KP 

roQO 

onoc 1 0 

L 

0014 


riocoo 

LNH 

C''L£> 


COOJ 36 

ortiAsc 

0" 36 


100034 

ltype 

no 16 


CrG042 

LUtJIT 

roi4 

I 

0mB3S 

KIV 

CCi4 


CCO"’47 

PVLAIA 

t. f 1 4 

I 

r 00771 

C.V'jYS 

L 114 

1 

0010.12 

PVVFH 

0003 

I 

OOOCCl 

na 

(Oil 


onoono 

NAMF 

CC<-3 

I 

nncpQ 

NL 

cm 1 


6 om i: 

t ’-UOL 

C”14 

I 

001135 

N 'V 



CGC003 

ML 

roc6 


ccnr 1 c 

ACL? 

CCC4 

I 

rcoco7 

NOS 

cmiB 


CCD.VjS 

NfLTS 

Cms 


000004 

NPrs 

0014 

I 

001136 

CSV 

C014 

I 

0011 37 

KSWV 

CD14 


001 I4C 

NVCONF 

COCA 


0J0037 

NV 

01C4 

R 

COGOIO 

p 

niico 

R 

000003 

PIN 

con 

R 

CrOCDQ 

PSLKG 

COwS 

R 

00 ”000 

pate 

ccors 

R 

0D002L 

R{ TKOS 

OnC4 

I 

OCOOI 3 

STVL V 

onn 

1014 

n 

0000=6 

SVLKC 

6014 


or.ici 3 

' VLAM 

cni4 

I 

001 ”4 6 

SVSYS 

r ”14 

I 

C 01031 

SVVTH 

0C14 

1 

on 1 1 n 1 

SWSYS 


CQ10S7 

SWVNAM 

0014 

I 

cm 12 

5WVVLH 

crt7 

R 

rniino 

T 

'.'■.-4 


O00'-U< 

Tl 

s 


OJO&:o 

Tl’CALL 

ocrc 


room 

m Kf 

C014 

T 

non 23 

VCONF 

, C0L7 


OC 1 75C 

WRT 







C005 0C0I31 XfiACH 3.10C f 000017 XNOS COI3 B OOOJ3B XpSLKG CD13 P 000212 XSVLKG 0DC6 000035 XTPNC 



CO 101 

!■> 


CC1C2 

2>i' 


C''1C£ 

3<- 


CPICE 

3P 


CP 106 

3« 


CC1C6 

17 


CC107 

"3« 


CPllC 

37 


CP lie 

3* 


CPlil 

ij 


CRlll 

97 


CCIU 

97 


CP113 

97 


CP119 

97 


CD 115 

97 


CD 1 1 5 

97 


GO 115 

97 


CPUS 

97 


CO 1 16 

97 


LC117 

97 


CPicr 

97 


criac 

9 V 


CP120 

97 


C0121 

5v 

UT • 

to 121 

57 

1 

CP 122 

57 


rr 123 

57 


CO 123 

57 


LCUN 

57 


or 129 

57 


CC129 

57 


CD1P9 

57 


CP129 

57 


6C 129 

57 


CtU25 

57 


CP125 

57 


CD126 

67 


CO 127 

77 


CQ17C 

67 


C0131 

97 


CC133 

107 


C0133 

117 


C0173 

127 


C013I 

117 


CC 1 19 

197 


CC117 

157 


enjAC 

167 


CC 19C 

177 


PP 19L 

187 


CP19C 

197 


CO 192 

2C7 


C0192 

217 


PAR 

Et 40 

CPU 


COMPILER (FLD:abS> 

SUCPOUTIhE ACTDAT 
INCLUDE pro list 
PPO f 

PAPAMEirP rNA=29 ,NR = 3*MNA *7 ,HNL = 4 6 1 NG rMNL + 1 3 , HHV = 9 , HSV = 9 ,M SU V=9 

» ,pvroi.F-ic 

PARAMETER PNS PCS , MNCONS rS , HNOCFr 10, HNTEON =5 , PTNOCF =1 0 
C9MM0i'/NUMS/M,NA 

INCLUDE CIL1,LIST 

PRcr 

CO>'RO'l /Ccu’F/ISYSt : 

ItlTLOEP STVLV 

coMPOtj y/;;. fES/RATC imma ) ,hmimna > ,def (hka i ,cglo ad, alt , xhacm 


;i ,TAPUSDt3) ,TP,N0S,P(31 , STVLV 


END 

CDL2 


COHMOM /rinCS/lSTART,ISTOPiIEND,NCL,NPTS,NPLTS 
V , I ['HAST , I VFL AG,N0L2 ,T TIME ,IUNlT,fREEI2l,FRN0('M 
* ,CLNO( m , TPCALLtH > ,ECTH ArH3 i ,LTYPE , XT PNO , LPH ASE |NW 
>» .rSTAT.rCAPD.LUtJIT 
COilMOrt /Tfr^AY/ T llaoc J .WPT I NR ) 

COlirO" /I! AJ/ INDCX(NR) ,IFTP 

coi'*'or:/f 


A-LS/NAHI ( 2 ,tnD, TACTNO(MLL>,NHODE(Z) , 1 S PED I 2 I , ILO AD < MN A ) , 
IVCHICHL) ,ACTN'Af'(HNA ,21 


INCLUDE CEL?, LIST 
PPCC 

CQMI'-ON /OrAD/rGR AD <MNL , 2 I .FLCRADlMNL) 

COKtIOU /LKG5/PSLKG {HNL I , S VLKC ( «NU ) , XP 5L K 0 ( HNL J , X S VL K C t MNL» 
=»,ALTFL’,. (hi L) 

COMMON /LM''Tf7X/LPH(3,HNLJ ,IPTPf3,3,3) ,ICOC£ ( 3 ,MNL 1 , I ASGN JHNL > , 
« I'IVCM'jLI iISIVirnrLJ ,1SRV(MNL), 

* MVNAH(2,*‘'HVI ,MVS¥S I MMV ) , H VVEH ( HMV ) , 

♦ SVKAMC2,MSVI I SVVEHtMSV), SV5YS(MSV», 

«■ SUVNAMt 3,MSWV I , SMSrS ?MS«V) , ST/VVEM (MSWV) 


END 


», VCCNF (MVCOflF ) ,NHV ,MSV ,NSWV ,NVCONf 
INTCCER VCONF, SVVEH, 

NAi‘.ELIST/<'r- 2 / lASGN 
DIllENSIOIJ J 5 VS( 3 ) 

DEFINE If’T{ I,J,K ):IPTB (I, J,K> 

DATA PlW/ICCiO./ 

IVFLA 5 = T( 096 J«-.l 


SWVVEH,SVSYS fSWSYS 


DETERMIJ.E SYSTEM PPESSURF 
00 5 1=1,3 

J: 1 SYS(I) . . 

5 PtDzJtSlif *J) 

DETERMINE SYSTEM ASSIGNMENTS FOR LOADS 
no 10 i=l,NL 

CIILCK TO Sic IF LOAD IS ON VEHICLE 


oocnii 

L03011 
CODOl 1 
LOOOl I 
cDCOl 1 
LOOCll 

coctni 

COCCI! 
cncpii 
lDOCU 
cCGCl 1 
CCOFl 1 

cncDii 

CCCCll 
LOOOl I 
COCCI 1 
CDCGll 
Lcccn 
LDCCII 
LCCOll 
CPFLl 1 
COCCI J 

coco: 1 

COCCIl 
ccocn 
CQCGl 1 
ctJOOl 1 
CDCCU 
cDcrii 
CO 001 1 
LOCLll 
COCOll 
COCDll 

Locon 
cone 11 
ldcoi 1 
caroii 

C0CC16 
1.00016 
1.00016 
C00D16 
L00016 
UQDC16 
CO PC 1 6 
CD CP 2 7 
CCCC39 
1.0 0076 
COrC36 
1.0CP36 
CDCC36 

lDFOY-- 

LCDD95 










re 145 



T 146 



coisr 

244 


CP351 

2E« 


EC 1E2 

264 


CC155 

2 74 


CC15E 

264 


CC157 

294 


C0157 

cr 162 

7C4 

314 


coife: 

324 


C0U3 

334 


CO 165 

344 


CC156 

354 


CO IbC 

364 


CC 1 7C 

374 


r;r} 71 

3C4 


Cfll 7 X 

2 94 


60174 

4C4 


CO 175 

4 1 4 


cri7s 

4 24 


CC177 

4 34 


CC177 

4 44 


crirc 

4 54 


402:3 

40 


cr:o3 

4 74 


LE2U5 

484 


0C206 

494 


C0206 

6C* 

Ln 

crxic 

5 14 

r 

CE211 

524 

Ssl 

ro.13 

5 2' 

o 

C0214 

54 V 


CC215 

554 


cri217 

564 


CC22D 

574 


CP 221 

584 


DC 222 

594 


2C223 

60>' 


E0223 

0 14 


CP273 

624 


GDZ23 

634 


CQ225 

644 


* C0230 

654 


CD231 

664 


CQ232 

674 


C0233 

68* 


CD 2 34 

6 94 


CC235 
a'2 36 

7LJ= 


7J4 


C0237 

72* 


ro:40 

734 


CO 24 2 

744 


CD242 

754 


Cr242 

764 


CD2U2 

774 


CC24 3 

764 


c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


IF tFL . { If^LD, 1,1 VEH ( I)J .EQo 11 GO TO 9 
I A SEMI) I'- 
GO TO 10 
5 DO 410 j:l,3 
4ZC JSTST J»-IEYS(J) 

CHECK 'SAl'l ISOLATICM VALVES 
DO 40 3 j; 1 ,WI,V 

CHECK TO sn IF VALVE IS ON VEHICLE 
IFL0:-<6-IVFLAG 

IF (rL^(iFLO,i,Hvvcmjn .eo. oi co to 4So 

CHECK TO see if LOAD IS DOWNSTREAM Of VALVE 
IFLD= ?o-J 

IF IFLD( IFLO, l.HIvm ) .EO. 0) GO TO 450 
CHECK STATUS CF VALVE 
K^:J-1 

IF If LDIK , 3 ,STVL V) .EO. D) GO TO 450 
K = m'SYS( J) 

JSY'(K|:3 
450 COl.TIIIUE 
CHECK SECOMiAFY VALVES 
DO 4CF J-1,NSV 

CHECK TC 'EE IF VALVE IS ON VEHICLE 
IFLE = '»6-I VFLAG 

IF IFLrUFLO, l.SVVCHIjn .EO. C) CO TO 480 
CHECK TO SEE IF LOAD IS DOWNSTREAH OF VALVE 
lFLC,= It,-J 

IF (FLDIIFL»,l,ISIV<in . FC . 0) GO TO 480 
CHECK status of VALVE 
k: J- 1* n 

ir (FLfJlK, 1 .STVLVI .EQ. 0) GO TO 480 
L=SVSvst J ) 

JSYSIL 1 = 3 
40C CO'.TIVOC 

IPOlUT :lPT(JSYSm ,JSYS(2l,JSVSm) 
jj=(iPorjT-i)/ie 
KK = ( I rpor;T-( jj’K 18 n - I )»2 
lASf-M I):rLn(KK,2,lC0DE( JJ+l,in 
1C CO'.TINUE 

OCTERMII.E THE POWER SPOOL AND SERVO VALVE LEAKAGES FOR EACH LOAD 



DO 90 1=1, KL 
IA-1AS6M I 1 

■ 

- 


lAlrlAtl 

CO TO (75,70,70,70) 

,IA 1 


7C 

XSVLKC(II=SVLI<G( I) 

4 (P{IA)/PIN1«4.5 



XPSLhCn irPSLKGI H 
CO TO en 

4 IPtIA)/PIN)«4.5 

'■© Ss>. 

SP 

75 

XOStKE. (I ) :C.O 
XSvLKGdUD.G 


9L 

COSTH'Ul 


300 

CONTINUE 


CHECK FOR SWITCHING VALVES 


DO .”0 1 = 1, NL 


■g? 



- .. 

la 




.i ■ 


ESSEHf 

LDCC55 
C00056 
CnOC62 
C0rC62 
C0DC62 
C0CC67 
Cn0067 
COCD67 
CO DC 71 
L00n7! 
L0CD77 
L00102 
C0C1D2 
i-ooiir 
CCDl 1 •> 
CDC121 
C0C124 
CnC133 
COCT.33 
LDCl 37 
400137 
L0C133 
C0C13S 
CnCl 35 
LC0143 
CCC146 
COCI 46 
cr.ci54 
Lnci57 
CCCH.5 
L0C17P 
ecu 74 
C0C174 
C002C4 
400213 
CC0221 
UP0274 
COC234 
EOC234 
C0C234 
C0C234 
C00234 
400235 
C0C237 
LOC251 
CDC262 
C"D273 
C0r275 
C0C275 


CDC304 

CrC304 

LnC3C4 

cnc3f4 

4DC304 

cnn304 





LOS-lo 

79» 

iA=iA :c>‘ (1 1 

C0C3D4 

CD247 

cO« 

ir (I* .fO. 0) GC TO 00 

LOD2D5 

crrsi 

bl« 

CO 79 J:lt6SUV 

LOC3C7 

C02E1 

!j2v 

C CHOCK TO see TO VALVE IS ON VEHICLE 

C00307 

COSSif 

• 63* 

irL0=36-I vruAG 

G00324 

C025S 

o4 V 

ir <FLO< IFUO, IfSWVVEHl JJ) .EC. 0> GO TO 79 

C00326 

Cn255 

bl* 

C CHECH TO 'EC IF LOAD IS DOWNSTREAM OF VALVE 

L0Q326 

CO057 

bC* 

IFLC: ’6-J 

LCC3 34 

crzu 

3 7« 

IF (HL(IFLO,l,ISWV(in .re. D» CC TO 79 

1.DD33'’ 

2 (■ u 

d6>> 

C CHECK STATUS OF VALVE 

L003 37 

LC262 

C9 > 

K=J-1.24 

1.00345 

OQ262 

9C* 

IF (FLD(K,1,STVLV) ,E0. 11 XSVLKG (I J: ALTFLU (I l*TP (1 A J/PI N» *# ,S 

1,003 50 

Cf’265 

91* 

79 CONTINUE 

C0C3 7 0 

C0267 

92* 

80 CONTINUE 

C0037D 

cc:67 

93* 

C 

U0037Q 

C0267 

94“' 

C bET RATLb TC A DISCREET FOR LOADS FOR WHICH ONLY AVERAGEC 

i-omvc 

C0267 

95* 

C FLOW DATA IS AVAILABLE 

C0G37P 

CC267 

95* 

C 

C0G370 


97* 

DO 137 j:16,NA 

C0C370 

E-Or 7Ji 

9fc* 

IF (RATE(J>{ 136,135,138 

000 3 70 

00277 

99* 

135 RATF( J)-3.0 

LC0373 

CO 300 

IOC* 

GO TO 137 

C00374 

C0301 

101* 

136 RATEI JJz-1. 3 , _ , . . 

E0D376 

cn 302 

1G2* 

GO TO 137 

LOCI 7 7 

CO jC3 

Il3* 

136 RATEI J I A 1.0 

L0C401 

GO 3C4 

1 l.4 * 

137 COtJTINUF. 

L0E4C7 

00304 

105* 

C 

C00407 

C0304 

106* 

C OETERMINF FLOW GRADIENT FOR EACH LOAC 

L0C4C7 

GO 304 

107* 

C 

C0G4D7 

C0506 

106* 

00 14* lAl.NL 

CC04 07 

corn 

1C9* 

u=:Acrno(ii • , , 

L00407 

GO j12 

lie* 

IF «J ,EC. .01 CO TO 139 

LD04 10 

C0314 

111* 

H = lAS’=f|l 1 1 

L0G4 12 

UC315 

112* 

IF (K .FJ. 01 CO TO 139 

LO 04 1 4 

CD317 

1 13* 

KMATS YSIK 1 

LD04 16 

C032C 

I 14* 

GO TO ( 124, 124, 1 39), KM 

L0G421 

C0321 

115* 

124 IF {RATE(JI) 125,130,130 

C0G4 32 

CC324 

116* 

125 FLGRAn (I ) AFGRAC 1 I ,21 

LGG4 35 

C0325 

117* 

CO TO 14j 

L0C4 37 

C0326 

lU - 

13L FLGRA*m=FORAD(T,l) 

G00441 

C0 327 

119* 

CO TO 14J 

L0C4 4? 

C0330 

12C* 

139 FUCKAC IT 1=0.0 

CGC444 

C0331 

121* 

14C COrTTINUF 

LCC446 

00331 

122* 

C ADJUST FLOW GRADIENTS FOR RUDDER, SPEED BRAKE AND 800V FLAP 

C0D446 

C0333 

123* 

IF (NOS ,E0. 0) GO TO 147 

LQC446 

C0335 

124* 

XNOS='.'OS 

L004 50 

C033G 

125* 

RATNSSrz.O/XNOS 

C0C453 

C0337 

126* 

CO TO 14« 

L0C456 

CD34G 

127 > 

14 7 RATNOS:r.r; 

lD046Q 

CO 34 1 

120* 

142 LO 15" 1=10,12 

lGD463 

CD344 

129* 

K =IA5'’J( 1 1 

L0C463 

cr34b 

13C* 

IF In .( C) GO TO 149 

LCC464 

CO 347 

1 31 * 

IF IISYSIK 1 ,NE. 1) GO TO 149 

L0C4 66 

CiC 3 c i 

132* 

FLGPAOl I)=FLGRADTI )*RA.TNOS 

L0Q472 

C03E2 

133* 

CO TO ISJ 

L004 75 

G0353 

134* 

14 V FLCRAOI I 1 = 0.0 

LD04 77 

L0iC4 

135v 

15L CONTINUr 

con504 







CQOSC'* 

LOOBOit 

COC505 

C00507 

C00517 

C00516 

G0052C 

COC525 


GC1C525 


CCC52*; 


C00S26 

000530 

L00534 

C0C536 

C0G540 

000540 

1-005140 

G00571 





crop. 5 H.SY'..-)4T/Vt,H.'5VSOftT/Vf. 
FCP S0E3-02/3b/75-lC;IC;n (59,) 


SUBSOUTir.E SYSOAT ENTRY POINT DD1511 


\ 

ut 

I 

-0 

Ul 


STORAGE fSCC : CODE U ) 0015:4; PATA(O) 0014'!4; BLANK C0rH0N(2l 000000 
C0I1M0N ELOCKS; 


EO0 3 

i.ims 

0C00C2 

E"j4 

CONF 

PC0014 

CGJ5 

(<ATES 

DCG132 

G'^CG 

TIMES 

0C0C43 

0007 

TARRAY 

EC21CG 

coin 

Ti!A>j 

riPul 37 

C 71 1 

LA"E s 

PGu424 

C012 

GRAD 

C0C212 

0P13 

LKCS 

□CJ346 


LHMTPX 

701141 

Lir'IS 

OUTPUT 

nCGPTT 

0>'l 6 

CPE I F 

0EG271 

0017 

FCOMP 

.70l.Cg7 

0 -)2D 

FUFL 

orooiT 

UCJl 

SFCC 

GC1424 

E02 2 

THRST 

C0C1D6 


EXTERNAL RfFCRCNCLS < OL OCK NA HE ) 

C'32 3 TANK 
C024 IJWDUl 
OH25 NIOll 
0^26 tir021 
G027 NERR2S 

cn3c uoji 

0031 NERR31 



STORAGE ASSIGNMENT (CLOCK, TYPE, RELATIVE LOCATION, NAME) 


gd:p 

C00363 

lOGOF 

0P71 

0.3024 7 

IDOIL 

COCl 

001423 

1C06G 

GOon 

C02516 

ILllF 

0001 

000360 

1012L 

(3000 

000540 

1016F 

coco 

CC0247 

1C2F 

CPJO 

700564 

105QF 

COCO 

0CC676 

1C60F 

onoo 

D70752 

■1C91F 

ocoo 

001004 

ni7F 

cool 

OCCDOl 

15L 

cooo 

001114 

2C30F 

0070 

001123 

2017F 

coco 

001132 

201 IF 

DIDO 

DOl 1 to 

2P4CF 

0070 

0(71166 

2045F 

rcDi 

000025 

205G 

LCGl 

CC7153 

22L 

cm 

000P46 

222G 

nnci 

O0PO57 

2750 

cnpi 

( :013L 

24CO - 

0"71 

700227 

2770 

mni 

C0C1S5 

3 7L 

v-OLO 

Oil 12 31 

321 EF 

G''"C 

00124 0 

3020F 

0 707 

CC1243 

3'^2SF 

u:go 

C012C4 

3C4<5f 

C0.71 

000303 

322G 

OOCl 

C0P315 

3irn 

rOLi 

070405 

•'74C 

0''71 

0074 77 

377G 

rrni 

000163 

4f'L 

L PC 3 

CO 12 5 7 

411DF 

oriJi 

00C524 

4220. 

0001 

C0P575 

4 44G 

DOC I 

0C7643 

471C 

0771 

000646 

4 740 

0701 

0CP667 

4770 

CP^l 

LOIDD^ 

54 uG 

o'''n 

001006 

54 30 

0001 

001042 

5560 

D"c:l 

C JU45 

& 3 0 0 


C01152 

6 3 50 

nool 

C01200 

6''4G 



COCO 

0C0316 

lOlF 

COLO 

000521 

ICICF 

GOOD 

000560 

1017F 

cool 

001450 

1D17G 

coon 

D0C706 

1Q70F 

C04.0 

rcnvi 3 

1C9CF 

COQl 

OOC145 

2CL 

ooco 

000356 

2D0F 

CDDO 

D0U43 

2C25F 

COLO 

CO! 15C 

2n2CF 

cool 

ocn 50 

21L 

COCl 

P00C4 2 

217C 

0001 

0CPC73 

2^2P 

CPCl 

P7P 1P2 

2 3 56 

focn 

rni75 

3PCPF 

roco 

p7i rrt 

3P1PF 

coco 

PC1246 

3C46F 

CPuD 

CPI 25 1 

2E47F 

CCCl 

0P'77?1 

7 7 

EGCl 

CC016G 

7RL 

reel 

cool 


4070 
4 520 

- Sc\^? 

CP,l 22 5 
CC''625 

ACiiE F 
4560 

CCCl 

oenzH 

5140 

COCl 

00^ 76 3 

5320 

"OCl 

pcnre 

6F4 5 

COlI 

r-JUl 5 

61 ir 

tool 

001207 

6£1F 

COLl 

0012^3 

676C 



cool 


C306H 

TCL 

C''C 1 


00124 7 

70SC 

cool 


001263 

714G 

cool 


001300 

725G 

0001 


001 303 

73CG 

croi 


001371 

73iiC 

0031 


001337 

744C 

0001 


001362 

754 G 

cool 


001374 

763R 

COCl 


001406 

772C 

coco 


COl CC 1 

otf 

o-'ci 


000743 

90L 

cool 


001061 

9SL 

coil 

R 

000332 

ACT4AH 

0005 


CC013C 

ALT 

C013 

R 

coo;7j 

ALTFLU 

0016 

D 

CODOCQ 

CF 

0005 


000127 

CGLOAD 

CQG6 


DCC021 

CLNO 

COCO 


CC0311 

DP 

ODDS 


CC007C 

DEF 

0006 


00CC31 

ECTRAN 

0016 

R 

0DC24O 

EOANCE 

cooo 

R 

000000 

FGCOMH 

GO 12 

R 

QCPCOC 

FGRAD 

cni 2 


GOOl 3'. 

FL6RAD 

0020 

P 

ooomo 

fLOAD 

GDIS 


OOOCOO 

FLRI 

C0C6 


00001 3 

FREE 

00 20 


nmol 1 

FRCP 

C OJ6 


Cj^CU 

FM.Q 

C^OC 

R 

Qoonn 3 

FUNUSC 

0021 


001421 

FUR ATE 

C017 

R 

ocro 11 

HE 

ores 


oonc3E 

HP 

O'ICO 

I 

Lcoact. 

I 

0011 

T 

000134 

lACTNO 

0000 

I 

C00303 

lAPU 

0004 


0 000 0 3 

lAPUSD 

0014 


000457 

lA set, 



cmc«i 

ICARO 

OOID 

I 

03C24 ■- 

ICODE 

QCP6 


nocno 2 

IFND 

coin 


ocri 36 


ecu 

I 

CCn217 

ILCAO 

cm 


CO'^CO- 

If OCX 

0 3C0 


0313’’2 

INJPS 

0015 


COCC’72 

lOTAP 

P0C6 


000006 

IPHASE 

CD j5 


CCnC? 1 

IPPLT 

CGl't 

I 

LCO-!<l 

II TR 

Oo;'2 

I 

030302 

IS 

0015 


CO 00 6 4 

ISAT 

COCO 

I 

0CO232 

ISCT 

cni4 

I 

0C0613 

ISI V 

G"U 

I 

coo2n 

ISPCO 

COCO 

I 

0J0276 

1S5S 

CCP6 


OOP300 

ISTART 

C0C6 


CCQ040 

ISTAT 

uDC6 


OOOCO I 

ISTCP 

CCl<t 

I 

CC3671 

IS4.V 

OOj<) 


ococro 

ISVS 

oc:o 

1 

CCC154 

ITEMP 

CCC6 


ocfiom 

lUMT 

con 

I 

000254 

IVEH 

crc6 


cog::? 

I VFL AG 

co'io 

I 

Q00270 

11 

03C0 

1 

000267 

12 

COCO 

I 

000265 

J 

coco 

I 

000277 

Jj 

cocr 

I 

cozus 

JSET 

ocro 

I 

Q30272 

h 

QCCO 

I 

C0C3O0 

KK 

COCO 

I 

000254 

KSET 

coco 

I 

000273 

L 

com 

I 

0002 7i 

CL 

0011> 

I 

conooc 

LMH 

0306 


000036 

LPHASE 

C006 


DOno 34 

ltype 

CCC6 


roo'142 

LUMT 

cooo 

1 

roo3Ci 

LX 


I 

□00271 

tt 

00 14 

I 

OCOa’S 

HIV 

COOO 

I 

P0n2 74 

MODE 

CC 14 

I 

0,30 74 7 

HVKAf' 

Cj"1H 

I 

CC0771 

MVSYS 

ori<i 

I 

001002 

MVVCH 

0C03 

I 

OuCDOl 

NA 

roll 

I 

rrrooo 

RAHE 

CC Al 

I 

031415 

NFCNS 


I 

roocci. 

ML 

Qoil 

r 

00C212 

tfPODE 

0014 

I 

CO 11 35 

NHV 

CC21 

I 

DCCOCO 

MOCF 

coco 

I 

Dec 30 4 

NOCFP 

O'! JC 

1 

u3J:oi: 

rjOCFl 

Q"r6 


000003 

hOL 

onc6 


OOCOlO 

NQL2 

roc4 


prrcc7 

NOS 

CG16 


D0027C 

KPER 

CCjf 


nococ 

M LTS 

00L6 


00C004 

IIPTS 

C021 


OG 14 14 

NSPDS 

''014 

I 

OCll 36 

NSV 

0014 

1 

POl 137 

NSLV 

C02? 

I 

C0DC7C 

NIC 

0014 

I 

C01I4C 

NVCONF 

0006 


CGC337 

NU 

C0C4 


ccrcic 

P 

CC22 


COO 105 

PAHE 

CCOO 

R 

CC013C 

PhNAtiE 

0017 

R 

OrOG44 

PLIM 

- C021 

R 

001320 

PRALT 

con 

P 

oirnoc 

PSLKG 

0015 


C0PC61 

PU'R 

Gco-; 


concoc 

RATE 

one 


OCOC7>7 

SA T 

0^21 

R 

C0CD74 

SFC 

cccn 

R 

rcri52 

SFCALT 

C0C4 

I 

corci 3 

STUl V 

con 

R 

CDTjSb 

SVLKG 

or 14 

R 

O'J 1 J 1 3 

SV'lAft 

CL14 

1 

001046 

SVSYS 

roi4 

I 

001C35 

SVVEH 

DD14 

I 

001 ini 

SWSVS 

C01« 

R 

roics/ 

SivVHAH 

Uf'l4 

I 

001112 

SIJVVCH 

0007 


occooo 

T 

L022 

R 

coicoe 

TACT 

00 20 


000014 

TE4USD 

com 


C30C^>C 

TFLRT 

□ ''■lO 


noooc6 

irusED 

0022 

K 

0DC012 

THRUST 

CD22 

I 

Dorccs 

TKOCF 

OOC4 


OCOCOE 

TP 

C0J6 


C0002C 

TPCALL 

0022 

P 

000075 

IPRESS 

0022 

' 

D0C102 

TR 

CGC6 


Doroii 

TTIVE 

C017 

R 

000006 

TVCL 

0317 

R 

cnoc><7 

UCPRFC 

0Q17 

R 

000003 

ULPRLC 

0017 

R 

0DC014 

ULTALT 

CC17 

R 

020017 

ULTOFT 

0017 

R 

OOOCOC 

ULTFLC 

0 n 1 ii 

I 

CCU22 

VCONF 

0CQ7 


001750 

RRT 

0021 

R 

D01224 

XALT 

CD17 

R 

0CC0S2 

XFLOy 

Goes 


00C131 

XPACH 

0013 


CGOl JC 

XPSLKG 

0013 


00021 2 

xsvcKci 

00C6 


0CDO3S 

XTPNO 










CO 101 

1« 


COMPILER 1FLD=ARS> 

00103 

2* 


SUOROUTII.L SYSDAT 

coins 

3'» 


incluoe par, list 

CDICS 

Z* 

PAR 

PROC 

CClOb 

37 


PARAMO TER MU A =2 9 ,NR = 3»‘HNA +7 ,MNL = 4 6 , NG =MNL + 1 3 » NHV = 9 , K SV = 9 ,HSWV=9 

CO 106 

3'> 


« ,MVrON’F:lO 

CC1G7 

3» 


parameter HNSPOS=4,HNEQNS:5,HNOCF=10,MNTEON=S,HTNOCF=10 

LOllO 

SJ' 


C0I1M0N/MUHS/NL,NA 

cone 

3>7 

END 


com 

4* 


INCLUOE CELl.LIST 

com 

4« 

CGLl 

PPOC 

com 

4« 


COMMON /C0NF/ISYS13J (lAPUSD 13 » , TP ,NOS , P t 3 1 , ST VLV 

com 

4>7 


IHTC6CI SIVLV 

CO 114 

4>7 


CCMPOM /nATCS/RATEIHNA 1 ,HP (MNA 1 ,DEF IHNA ) , CGLOAD, ALT , XHACH 
COMMON /TIHES/ISTAPT ,ISTOP,]ENO,NCL,NPTS,NPLTS 

com 

4 iX 


com 

4^' 


#• ,11 HASC ,IVFL AC,N0L2,T TIME , lUN IT , F REE ( 2 » ,F RLO ( 4 1 

cem 

4« 


« , CL •‘'0(4), TP CALLIM), EC TR A N(3J, LTYPE, XTPNO, LPHASE, HR 

CO 115 

4* 


7 , ISTAT ,1CARD,LUNIT 

COMMON /lARRAY/ T ( 1000 1 ,W P T (NR 1 

CCl 16 

4« 


coin 

47 


COMMOf /TRAJ/ INOrUMRl.IPTP 

cr 1 ?c 

4<> 


COMMOU/MAITS/UAMEI 2,MUL J , TA C TUO ( HNL ) , NHODE (3) , I SPED ( 2 ) , I LO AD 1 MN A ) 
« IVCHtMUU fAOTMAP (MNA,2) 

L012C 

4* 



cooooo 

COCDOO 

CDCGCC 

conroc 

COGQOn 

LOOuQO 

LOCCOO 

COCOCO 

cocoon 

cncoon 

coDcon 

cnccQO 

Lorcco 

cnrcQO 

LOCCOO 

lOCCO'’ 

cnrcco 

cnocDO 

cooooo 

coococ 

lOOCDO 

Lorocc 



il wm i ii i^ wn bi Ti waa 


cn^a 



ChO 


CCOCOP 

rn 1 7 1 



ILCLUn'- CtL2,LIST 

LOODCO 

CCl’l 

l« 

CEL 2 

PROC 

lOOCCO 

Cr.l22 

6* 



COJIMON /GRAD/F6RA0 fMNL ,2 > ,FLGRAO<PNU 

COMMON /LKGS/PSLKG(MNL >,SVLKC(MNL),XPSLKG(MNL> ,XSVLKC(MNL) 

LDODOO 

CCji23 

&« 



COCOCO 

CC123 

5# 



#,ALTfLJtl■^L> 

Conoco 

CO 12IJ 

C« 



COHMOfi /LMKTRX/LMH(3,MNLJ ,IPTR«3,3<3> , I CODE < 3 , MNU , I ASGKMHNL 7, 

COPDOO 

CP12‘( 

£» 



# MIVIMNL > ,1 SI VIMNL ) .ISWVIHfJL 1 , 

1.00000 

cri:*, 

s» 



« mVNA'1(2,»’MV7,PVSYS(HMV)iMVVEH< HMV I , 

# SVN«N{?,hGV) , SVVEHIMSUJ, SVSYSIHSVi, 

# SWVtJA(!(2,!:Syvi ,SWSYS(M5WUJ ,SWVVEH<KSHVI 

CCCGCD 

rci 2 <* 

s* 



CQCOCO 

CC124 




Locrco 

cr i 2 <i 

. c» 



*, VCONF (MVCONF ,NSV,NSWV,NVC0NF 

INTECCP VCONF, SVV£H, SUVVEH.SVSYS ,SWSYS 

LDOCOn 

cf-i^s 

5>> 



CCOCCO 

CC125 

60 

r.hO 

COCOCO 

CCl?t 

C-> 



INCLUPE CrL3,LIST 

COCCPQ 

00 1 26 

t* 

CBL3 

PR6C 

LQCICCD 

f fll?7 

t*‘ 



COMMOM /CUTPDT/FLRKHtlLI ,TFLRT(3 1 ,P Wk ( 3 1 , 1 S AT ( 3 ) , SA T < 2 ) 

t, nee DP 

C0127 

6# 



*, IPPLT.IOTAP 

Loncon 

CO 1 2C 

to 



CCIKIOIJ /CPEFF/ CF(10,2,2,2I, 

CODCCQ 

CO lie 

6v 



* EKANCE( 2,2 ,2,3 » 

cococo 

CO 1 IC 

6* 



# .fJPFR 

DOOnLC PkECISION CF 

LDCCDD 

com 

61' 



COCDOD 

C01I2 

c* 



COMMON /PC0“P/ULTPLC{3I,ULPRLC(3),TV0L<3J,HE<3), 

# ULTALT( 3) ,ULT0FT{3,7 ),PLIH(3) 

# .ULPRFCI 3 ) ,XFLOW t 3 ,2 ) 

1.0DCC0 

10112 

fc* 



ccoocc 

cnu 2 

t* 



coccco 

oaiii 

6* 



COHHOM /FUEL/ FL P.ArD t 3 ) , FU NUSF t 3 ) , TFU5 CD ( 3 1 , FR EM( 3 ) , TENUSDt 3) 
COMMON /srcc/ hOerciNSPOS ,MNECNS, 2 l ,SFC tMNSPDS,HNFON£,MNOCF, 3 ), 

Lcoron 

00134 

fc« 



lOCCOD 

CD134 

6« 



* XALTIMNSPPS ,HNCQNS, II ,PR ALT (HNSPDS , MNECNS , 3> .NSPOS, 

# NCCNSIHflSPDS 1 .FURATE (3 1 
CO(iMO»!/THRST/TALT(!!NTCQM , f fJOCF ( HN TECiN 1 , THRUST (HNTE ON, MTNOCF 1 

COOCOQ 

C0134 




Loccen 

cniis 

6* 



Lorcoc 

C0135 




*,NTr, TPRi'SS (MKTECtll ,TR ( 3) ,PAMD 
IflTCGE.' TNOcr 

LODQOO 

CO 1 36 




CODCCD 

CCU36 

t* 

CKO 


LOGOOO 

C0137 

7" 



DIMCNSIO', FGCOMM (2,MNL I , PHNAKE ( 2 ,7 1 , SFC ALT J 2 1 

COCOCC 

CO 140 

C# 



DtrlENSION ITEMPfl’riLI 

lOCOCO 

cni4i 

9’!' 



DI'iCNSIOI. ISETUiHVl , JSCT( HSVI ,KSET1M5WV1 

COCCOO 

DD142 

iO-!' 



NAMELI 3T/[ B/tJOCF 

CP DO on 

C0143 

1 1« 



DATA FCCUCIi/92#’ ’/ 

lOCCDO 

CP145 

12* 



DATA (FCCCMMI l,J >,J = 14,16 l/3*’0PEA'/ 

cocGcr 

CO 14 7 

1 S'* 



DATA n CCC-M!‘( 2, J 1 , J=14 , 16 I /3#’CLCSE’/ 

LO''OCC 

CO 101 

14« 



DATA (f r.( CMIm 1 ,J),J = 22,?4 1/3* * LOWER V 

Loccon 

C0153 

15# 



DATA fTCCPIlr<2,JI ,J = 22 ,24 1 /3#’RAISE»/ 

ccrcco 

LClCb 

It* 



DATA IfH.'.AMLd ,1 1,1 = 1, OI/'PRELAUNCHV 

Lccccn 

CO 107 

17* 



DATA (PHNAMCC 1,2) ,1 = 1 ,21/ ’ASCENT '/ 

cccocc 

C0161 

It* 



DATA tPhMAMFU, 3 ) ,1 = 1,2 1/ • ’/ 

coccco 

C0163 

19# 



DATA (PHt.AMEl 1 ,4 } ,1 = 1 ,21/ ’ON-ORD CKOUT'/ 

uocooo 

C0165 

2C* 



DATA (PHNANFtI,51,l=l,2l/’ ’/ 

cocccc 

CO 167 

21# 
2 2# 



DATA (PHNAMF ( I , 6 1 , 1 = 1 , 2 1 / ’ OES CEH T • / 

LOPCQO 

C0171 



DATA n HfdMFI 1,71,1 = 1,21/ ’ROLLOUT’/ 

cocccc 

^<^173 

^3>'« 



DATA 51 CALT/'SL’ ,’SP’/ 

..DCCCC 

COl 73 

24 > 

C 

LOSS OALACI t ''t.T f iTPIX 

..orcon 

CO 1 7 3 

21 # 

C 

GCf.f.RATLS ~N HY2 LCAC SYSTEfl ASSIGL'HEM MATRIX ICOCE 

c-DCOD* 

C0173 

2fc* 

C 

ICCDE (POIIJTEii.HYO LOADUSYS TO WHICH THE HYD LOAD IS ASSIGNED 
POIHTCR^IPiniSYS 1 (ICDE.SYS 2 HOOE.SYS 3 MODE 1 

LDCCOn 

L0173 

2 7* 

C 

corcop 

CD173 

2b# 

C 


WHERE SYS 'inOE = 1 ; PRCS5URI2ED MODE 

Lororc 

LP173 

29v 

C 


SY6 M^Ut : 2 : PCPR FSSUR 1 2 E C HOPE 

LDoenn 

00173 

3fv 

C 


SYS MOLE = 3 : OFF 

LOOC"C 





5 *- *■ 




CD173 

31» 

C 


coonco 

CD J75 

32-> 

C0^TI»OC 


CnDOOD 

cm 76 


12=0 


COCODO 

CC177 

3*<* 

15 I1=I2*1 


CODCGl 

C02DD 

35-» 

I2=I1»36 


LOOC03 

cc2ni 

36» 

IF a? .GT. NL> I2=NL 


C0DCC5 

C02C3 

37* 

2 WPITC (6, ni) II ,I = I1,I2J 


COOC13 

CC211 

3fi 1" 

IDl FOFMA T ( iHl . 51X . ♦##*# LOSS MANAGEMENT MATRIX ####*,//, 


CDCD22 

cr 2 u 

3 4« 

#♦ SYS SYS SYS SYS* ,35X .’SYSTEM ASSIGNMENTS FOR HYE LOAD NO*,/, 


LDD032 

C02U 

4C*!' 

#* CONF 1 2 3 *,3713,/, 


E0D032 

CC2Il 

**17 

#) 


C0C032 

00212 

*(2^' 

WRIIE(o,lC2) 


LD0032 

CC214 

MS')" 

102 FOS'MAT t 


LDOOS-* 

CD214 

*(*(« 

#• CODE MODE MODE MODE * , / , IX , 1 3 U IH# )1 


000037 

LP216 

*• 5 ^ 

H = 2 


I.P0037 

C02 lo 


no 5u 1=1,3 


C0C046 

CD2ri 

*1 7v 

DC 50 J=l,3 


LDC046 

0022** 


00 50 K=l,3 


L00D57 

(.0227 


M=M + 1 


CQCC57 

00220 

SO'* 

IPTf?( T,J,K)=M 


CD0C65 

C0221 

51# 

DO 43 L=I1,I2 . 


1.00D73 

00 23*1 

52# 

DO 35 MOOE-1,2 


COOIC? 

C0227 

S3* 

DO 3D LL = 1 ,3 . _ . . . - 


L00130 

CC242 

5*«# 

ISSS = LtlM(LL,LI 


000130 

CC2*t3 

55# 

If USSS .CO. Dl GO TO 35 


U00132 

002*10 

56# 

GO TO (20,21,22) ,ISSS 


CDCl 34 

cn2*t6 

57# 

2D ir tl .fO. MODE) GO TO 40 


L0C145 

C0250 

58# 

GO TO 30 


U0D146 

CC251 

59# 

21 IF (J .EC. MODE) GO TO 40 


uODlSO 

00253 

60# 

GO TO 33 


CDD151 

CC264 

ol# 

22 IF (K .EC. MODE) GO TO 40 


CQC153 

DC256 

62# 

30 COfiUf.UC 


cnciGi 

0026D 

62# 

3 5 CONTIMJC 


1.00161 

C0262 

64# 

1SSS=D 


CC0161 

00263 

65# 

40 JJ=(H-1)/18 


C00163 

C0264 

66# 

KK=((M-(jJ#18) )-l)#2 


L00164 

CC265 

6 7# 

FLD(KK,2,IC0DE( JJ*1,L) )=I SSS 


LOO) 71 

C0266 

66# 

I TCf-P (L) = ISSS 


C00207 

00267 

69# 

45 CONTINUE 


LDC213 

C027I 

70# 

WPITC to,20C)H,NM00E(I ) ,NMODElJ>,NHODE<K) ,UTCHPJLX),LX:ll, 12 1 


L0C213 

C03(^3 — 

71# 

2DC FORMAT (lX,/,Ix,I4,3<2i(,A3),I2,3613) 


L0r241 

0D3C*( 

72# 

5L COWTINUr 


L0C241 

LD31C 

73# 

IF (!•’ .LT. NL) GO TO IS 


000241 

00310 

74# 

C 


L0C241 

C0210 

75* 

C WRITE OUT HYD LOAD DATA REPORT 


L0C24 1 

C031D 

76# 

C 


C0C241 

CD312 

77# 

CONTINUE 


20C24S 

CD313 

7C# 

1=0 


L00245 

00 31'* 

79# 

1001 K=a 


C0C247 

cn;i5 

6C# 

Il=l*l 


L0C247 

CO j16 

61# 

WRITE(6, l^'OC) r 


00C254 

(3C3 2C 

S2 > 

lOOC FORCAT( liU.SlX, *#### HVn LOAD DATA ##«#*,//,* NO *, 


C00262 

C032C 

83# 

#’LOAD NAfF ACT SI S? FLOW CRAD POWER SERVO ALT ACT 


C0r26? 

CD320 

64# 

* VCH MAIN SEC SHI TCH* ,/,4X, 


L002f ? 

C0320 

65# 

#• (CPH/CE6/SEC) SPOOL VALVE FLOW NO 


C00262 

cci3rc 

66# 

# CCOC ISCL ISOL VALVE *,/,4X, 


LC10262 

C032U 

67# 

#• LKG 0 LKC a <CPM) 


00026? 



rrt¥xoeasB 




03aggBiBigaguBiasa^>iij£tlil!itetfe.itSJCTiSJ?^^^ 


C0 32C 

£6P 

C333C 

69* 

CD32L 

9 CP 

CC376 

91P 

C0320 

92P 

60321 

934 

CD334 

94P 

C0325 

9 5P 

CO 325 

9L * 

cr32s 

97P 

CC325 

5EP 

E05E2 

, -99P 

C0354 

ICCP 

CD355 

IClv 

CP361 

102P 

00363 

133 A 

Cni62 

1J4P 

CC 363 

IDEP 

CP 36 5 

1C6P 

CM 365 

1G7P 

Cr 365 

10£p 

C3367 

iU9<> 

CP371 

HOP 

CP371 

UIP 

CD371 

112P 

CD 372 

1 13P 

G0435 

114P 

CC4C5 

1153 

CP4MS 

116P 

r04ns 

11 7P 

00 406 

nep 

C"411 

119v 

cr4ii 

12 CP 

CC413 

Klp 

LC413 

122P 

FC415 

123v 

00416 

124j‘ 

CP416 

125P 

CC416 

126P 

CP416 

127P 

CD 4 rc 

126 !> 

C0 4 2C 

129P 

C0436 

liCP 

CD 4 36 

131v 

CC436 

132P 

C0436 

133P 

C0436 

134P 

CD 4 36 

135P 

CP436 

136P 

L043c. 

137P 

CC143L 

1 J£P 

004 36 

139v 

CD436 

14CP 

C0436 

14 IP 

C0437 

142P 

CC44 2 

143P 

00442 

144P 


* 

Jr » 

» 

«• 

* 


VALVE 

CODE 


VALVE 

CODE 


COD'" 


•,/,4X, 

*,/,4X, 


300C 

PSI 


3CCQ 

PSI 


• ,lX,/,13mH#)J 
DO 1C15 1=I1*NL 
K ** K ^2 * 

WPITE <6,1010) I ', INAHE < J , II , J:i, 2) , (LHH< J, I ) ,J=1 ,3 > , 

* FCKADll,!), 

? FGC0 4*-(| 1 , 1 ) ,PSLKG(I l.SVLKG (1 ) ,ALIFLU (I ) , I A CTNO ( 1 ) , I VEH 1 1 ) , 

* KIV( I ) ,I UV { I ) , ISWV ( I ) 

IF (AnClFeRADJlrai-FePADlI,!)) .LE, 0. 00001) CO TO 1C12 

WRITE <6,1011) FGf?AD(I,2) ,FGCC!PM< 2,1 ) 

IGll EOPKAT (31X,F6,3 ,1X,A6 ) 

loic FPRRAT (/,lX,I3,Ix,2A6,3I4,2X,r6.2,lX,A6,lX,F6.3,lX,F6.3, 1 X, F6« 1 , 
if lX.n,?x,l3,?X, IG,2X,I5,2X,1S) 

1012 IF (K.GT. 44) GO TO ITOl 
1C15 COfiTIfrUE 

C WPITF OUT IIYUPAULIC FUNCTION DATA 

c 

wriTEtb,iri6) 

'1016 FOHf'AT (iHl ,20X’4«*P H''DRAL'LIC FUNCTION DATA #*««*,//, 

>T12, * function’ ,T25 , ’LOAD NO ’ , , 

A132<l'l>oy/I 

«IMTE<6,1C171 n , lACTNAtm.J), J-l,2),IL0ADm,l=l ,T’A ) 

1C17 FOK'IAT (1 X, IS , tId,2A6, 5X, 15 ) 

C 

c determine loading conditions for apu tanks 

C 

59 DO 60 1=1,3 

IF (HEd) .CC. 0.0) fall T ANK tUL TPL C III |FL0 AD ( I ) , TVOL (I) , 

*IF (ULf RLC ( n ’l*EO. 0.0 CALL TANK ( ULTPLC ( I ) ,F LOAD ( I ) ,T VOL< 1 ) , 

P OLRPLU I ) ,HEI I),2) 

ULF-RFCn )=ULPRLC(I ) 

60 CONTINUE 
C 

C »R1TC OUT APU DATA 
C 

WRITE (b,l''5f’) n ,7=1,3) ,xfloh,ultplc,ulprlc,tvol,he ,FL0AD, 

« FUNUSE,PL1M 

1050 FORMAT < 1 H 1 , 20X , SYSTEM iDATA 4***’,//, 
aT36,3(* APU/HYD*),/, 

*T36,31’ SYS ’ ,12, 2X ) ,//, I 

P’ MAX FLOW PATE AT IDQt S FD ,GPH % T3 6 , 3F1 0 . 3 , 

*» MAX fLOW RATE AT ILTt SPEED » CP H ’ , T 3 6 , 3F 10 , 3 , / , 

P’ ULLAGE TEMP,LC,r’,T36,3ri0.3,/, 

P» ULL'GE PRESS,LC,PSIA • ,T 36 ,3F1C. 3, / , 

P» TANK VOLUME ,F T vPJ ’ ,T 36, 'F ID . 3, / , 

P’ HELIUM, LL’M’ ,T36,3=d. 3, /, 


P* I).ITIAL fuel LOAD.LDU’ , T36.3F1D .3 ,/ I 
P’ UNU‘:AClC fuel, L flM’,T36, 300,3,/, 

P* LO„rN P = CSS Ll't.r SIA ♦ ,T ’S , 3F 10 . 3 I 
WRIT! (6, lOtiOULTALT 
IDGO rohHAT <’ ULLAGE TE MM , F C , F • , / , 

P • -ALT’ , T36,3F1U. 3) 


o o 

^ as 

"TS 

O 2 

o 

5D 

lO 3 

C 5- 

> o 

jr m 


CCD262 

600262 

LDC262 

CQ0262 

CCC262 

CD0262 

C0C333 

L0C3C6 

LDOTfig 

c603D6 
L0C306 
C00337 
CDC345 
C003S0 
1,00360 
60C36C 
L0036G 
lDCICP 
603366 
6C0366 
LQQ366 
lOD 366 
603373 
C0C373 
1,00373 
LDCi73 
U0C424 
CC0424 
C0Q424 
U50424 
cOC4?4 
L004 24 
LD0424 
C0C447 
C0C447 
C00473 
L00476 
CCC476 
C0C476 
L00476 
CCG476 
C0C476 
600561 
LD0561 
60C561 
D0D561 
cnc561 

L0C561 

L0356I 

6CP561 

6PC561 

6QG561 

E 0 rE 61 

COG561 

600561 

60067*= 

L0P575 




2 

14 £>!> 

- 

00 70 1=1,7 

ir (OITOFTII.I) .EQ. O.OJ GO TO 7C 

WPlTE(c,lC7nJ (PHNAMEfJ,! ) , J= 1 ♦ 2 1 , ( UC TOF T IJ , I J , J: 1 , 3 1 

Cn0575 


I4t* 


00060" 

CCMOL 

147>> 


CCC607 

C0H62 

14C« 

1C70 

FORPAT (• -OFT-* ,2A6,T36,7F10.3I 

400633 

CC463 

• 14S« 

7C 

CORTIRUE 

C00633 

C.i’tlf 2 

15C0 

C 


402633 

CCiiCZ 

151V 

C kRITE cut ['U!‘P etficiency eouattons 

400633 

zrm2 

1529 

c 


LD 0633 

COtiiS 

1539 


WRITL (4, lf'90) 

C006 33 

Cf'‘4h l 

1549 

1C9C 

FOU’AT ( IPl ,50X, * >999 PUMP EFFICIENCY CURVES 9999*,//, 

LC0646 

CP <161 

1559 


9* 5YSTL1 APU FLOW RATE LIMITS, GPH *,TS4, 

lOC646 

oD 6 7 

1549 


;*EFr= rCFLCW RATEjoPM) ’,//, 

CO 0646 

rr467 

1579 


9* 'TO" SPEED LOWER UPPER * , / , 1 3 2 < 1 H9 J , // » 

C00646 

CC47C 

1569 


DO 90 IS=1,2 

C"C646 

CC473 

1559 


DC 9C IAPU=1,2 

L0C646 

t,n 4 7 c. 

1 0C9 


DO 72 rt=l,2 

CDC667 

L,c£n 

14 19 


LOCFp-^r-A# CE(TS,IAPU,K ,3) 

40'’7'’1 

cf'£c: 

1 u29 


wocr 1 :\ocr p - i 

lDC7 10 

co£t: 

14-iv 


IF (NO£FI .EC. D) CO TO 90 

LO0712 

[ir"jc:5 

1 64 > 


WFITE(£., 1''71) NM0DE{IS),I5PED«IAPL) ,E R ANGE ( IS , I A PU , K , I 1 , 
9EPAl.c:(I5,lAr'U,K,2),CF(I,K,IS,IAPU),(CF(J*l,K,IS,IAPLI,J, 

402714 

CC5C5 

1659 


C00714 

cnsrE 

1469 


9 J=l,hOCFl) 

lQC714 

C0E21 

1479 

1C9I 

rORl'AT t//,3X,A3,4X,IT,*4*,3X,r6.2,8X,F6.2, 

C0075? 

tO£2l 

1 6L9 


V* EFF = *,012.6,* 9 X 9* 3 ♦ 

9 7(012.6, ’ # X 99*, 12, * + *),//, 

Cfi''752 

Cr£2i 

1u99 


L0C7S? 

CDb21 

17t ■ 


93(45X, ■'<012.6, * 9 X 9v*,i:,* ♦ *»,//)) 

COC752 

LPL2Z 

1719 

90 

COfiTI"UC 

L02752 

Cnb22 

1729 

C 


C02752 

CCSP2 

17 3v 

C WRITE OUT FUEL RATE EOUATIONS 

C00752 

Lns:2 

US*-* 

C 

• 

LC075? 

cobri 

1749 


WRITE <1,11101 

LDC75J 

LD£3b 

17 69 

lllO' 

f0<<fAT(lHl,50X,*999* fuel CONSUMPTION RATE CURVES *, 

1.00763 

tOb’Q 

177# 


9 • 9 999 ’ , / / , 

oC0763 

C053C 

1769 


*T3, •APIJ* , T13, *EQK* ,T1G, *APU*,T22, * ALTITUDE’ , T 3 3 , * AHB ’ , T45 , 

40 0.7 6 3 

ccsir 

1799 


9*FCi; , LI M/UR : F(hYD PUMP SHAFT POWER, HP )’,/ , 

9* SFCrO’fTn,* NC*,T16,* NO*,T24,’(FT)*,T33,*PRESS*,/, 

C<TC763 

cns3'j 

1809 


C00763 

CP52C 

1U9 


9T-**,* (rSIAI *,/, 

L00763 

crs:o 

i:2w 


9132<lli>l ,/» 

C00763 

ca£3i 

ic :9 


00 ten 1=1,2 

C20763 

CCb ^4 

14 4* 


J = NLU!' ( 1 ) 

I.OC771 

{.0£3£ 

1459 


IF <J ,E«. 01 GO TO 95 

CCC773 

00537 

1669 


DO 91 ft=l,J 

L00775 

LC542 

U79 


DO 91 ,<«: 1 , 3 

L0I006 

CC54': 

16C9 


L = rJOCF<l,P,KKI-l 

URITE<6,3'i ISPED<n,K,K«,XALT<l,K,KK) , PR ALT <I , K , KK ) , SFC 1 1 , K , 1 ,K K » , 

C01D16 

CD546 

16 99 


C01021 

DP546 

19C9 


9<SFC<T,K,1U1,KK> ,M,M=1,L> 

FOM'AT <//2X,I3, h*,3X,I3 ,3X,13,3X,Fe.0,3X,F6.2,6X, 'FCR = *, 
9D12.6, ’ 9 X 99 0 ♦ S 

C'nC 2 1 

0C563 

1919 

65 

GDIC63 

CC563 

1929 


LDIC63 

CC563 

1939 


92<C12..>,’ 9 X 99*, 12,’ ♦ *»,//, 

C01063 

crse3 

1949 


93<h5x, ;i012.6,* 9 X 9*',X7,,* ♦ ’,),//)) 

4C106'* 

cn56<i 

1959 

91 

COWTir.'UE 

L01C63 

00 507 

1949 

95 

coi-rr'iiF 

LD1D63 

£.0570 

1979 

IDD 

CONTKiUC 

401P63 

CO 570 

19 89 

C WRITE OUT VALVE DATA 

CC1063 

CC57C 

1 999 

C 


L0106T 

00 572 

ZCCv 


WRITE <6,20001 

4(11063 

CO 574 

2019 

?COfl FP|}''f.T t Itu , 55X , • 9999 VALVE DATA 9999«,//) 

401070 



U 1 

I 


C0L7S 

C0577 

LCltiCC 

LPoCS 

cntrr 

CC6D3 

C0fc:;6 

CGM7 

Lrtrr 

CCt22 

cr:o:i( 

ccbit 

CCo27 

a0o32 

CEd 43 

LOt-^t 

"0650 

C.P6tl 

C0t,E3 

CPtEt 

:C667 

C0667 

t'Ct,e7 

CPU 7 

Lr671 

COO 7 3 

CP67‘t 

CP7L.'2 

CQ7C2 

CP702 

CP7''3 

lP/U 

CO 71 2 

CC72C 

CP721 

CC723 

CT72». 

C0727 

CO 7 32 

C0733 

CC735 

C074C 

CC7qi 

007(13 

C0746 

CG747 

CQ751 

C076D 

00761 

CP7C7 

CO 7 7C 

00 7 76 

CD777 

ClGPl 

ClCOl 

GlCCl 


2C20 
22Z^ 
2-(*« 
2 C b* 
20t»» 
2 <„ 7 -> 
2J£« 
2 „Sv 
2iCv 
21 1 / 

21 O'" 
21 ’■> 
21((v 
216-)‘ 
21 1 V 
217# 
210 
219 # 
22C* 
2214 
222v 
2234 
2294 
2 ^ 6 -!= 

22 6-7 
22 7v 
226 > 
229 > 
2204 
2314 
2324 
2 3 34 

249* 

230-> 
236 > 
237* 
236 7 
2 3 9* 
29C* 
291* 
292* 
29 3* 
299v 
29S* 
296* 
297* 
29 6* 
299* 
260* 
261* 
262* 
263* 
269* 
256* 

2 6 £.« 
257* 
25C* 


WPITC (6,00101 

2019 FOnMAT (1 ,< , •**«* MAIN’ rSOLAT10^ VALVES*, //» 

wpi TL{ 6 , on 11 

2 C 11 FORMAT ( 

*00 2 U*/l-l,MHV C 0 DES/, 132 nH*l) 

3 P 26 

u"lTL ( 6 , 2 r;f)) 

2010 F 0 . 7 HAT ( ***** SECONOARY ISOLATION VALVES*,//) 

CO 00'4i’i:1,hsv 

->ni - !' > 3 025 )I , ( S VNAM (L ,I 1 ,L = 1 , 2 ) ,S vs vs ( r ) , SV VEH < n 

2C91 coilTl'uE -X,I9,3X,12I3I 

WRITE '(6,PP95) 

0095 FO-yAT (//,lx,*v«*w SWITCH VALVES ****•,//) 

WRITLlt, ,2C11) 

DO 2051 I-1,NSWV 

2 C 51 COSTINJC’^^^^’ ' *'- = 1 *31 ,SWSYS( 1 ),SWVVEH (I) 

C*” 

C hRiTE OUT VALVE CONFIGURATIONS 
WRITE ( 6 , ■'0001 

wHf'r‘r(!i' 3 ^tS?*‘rin = ?,Kftby^ CONFIGURATION DATA *****,//> 
3 U 10 FORMAT ‘l^i’yfLVE’.TlSt'MAIN ISOLATION VALVES*, TSP, 

WRITE ( 6 , 3020 ) (I,l:i,NSWVI 
202 C FQRtlAT 1 IH ♦ ,T 99 , 121 3 I 
,, UPITL ( 6 ,-*oJ 5 t 
3 C 25 FORt'AT ( I X , 1 3 1 ( 1 H* 1 1 
00 3 C 5 . I = l,'iVCONF 
DO :c 30 J:l ,|(MV 
K rj-i 


3030 ISFnj):FLr'(H,l,VCONF(I)l 
DC 3036 jri,!JSV 


♦ I 


K=J-l *12 

3035 JSET(J)=FLD<K,l,VCCNFmi i -'' 1 
DO 3090 j:l,NSWV 
K=J-1 *09 

3090 KSCT( Jlrf lD (K ,I , VCONF ( 1 n t 1 

' I»<1SCT(J) ,J = 1,NHV1 
3046 FOrMAT < / , 2X , I 3 , T 22 , 1 2 1 3 I 
ir,-, ( JSETlj|,jri,NSV) 

3097 FORIiAI (i'U, TOO, 12131 

3 C 96 

6C5C CONTINUE 
CONTINLL 
C 

C WRITE OUT APu EXHAUST THRUST TURVES 


CC1C70 

L01D7S 

C01C75 

LD1106 

LO 1106 

C011C6 

C011C6 

CO 1129 

C01125 

t.01125 

C01132 

CO 11 32 

1,01193 

C01193 

CO 1 162 

L01I62 

L0116? 

C01167 

l.01167 

COiOCC 

C012E0 

C01217 

C01217 

C01217 

L01217 

CC121'' 

LD1229 

C0I229 

L01290 

LOI29P 

C01290 

Lni 29 C 

C01259 

C012E9 

1.01270 

L0127P 

LD13C3 

C013C7 

LD1303 

501303 

C01306 

CD1321 

LD1321 

L01329 

CD1337 

C01337 

C01392 

C01352 

L01369 
cm 369 
Li)137 7 
LD1377 
C01913 

CP 19 1 3 
L019I3 
C01913 
L01913 



» -i** *- JtKrP-ii- -^' 


-flfTT 


Cl CCl 

2597 

C1CD2 

26C7 

01 004 

2617 

C1C04 

2627 

C1E04 

' 2637 

01004 

2647 

Cl CC4 

2o57 

Cl rc4 

2667 

Cl CC4 

2677 

L 1 30 5 

2667 

moic 

260 > 

C 1 0 1 1 

27C7 

ClQll 

2717 

CIQ24 

2727 

cic :4 

2737 

61024 

274-< 

C1024 

2757 

01C2S 

2767 

C1C27 

2 /77 

01 crc 

27C7 

END FOR 



C 

<<110 


<*085 

<*120 


wPiTE(c.,<*iia> . 

FOKf.# f 1 1^-1 ,<45 x , • «««« APU AVERAGE EXHAUST THRUST* 
•>* CURVES >>»««■•,//, 

*710, •<■(,*.•• ,T16,*ALTITUDE’, T27, • AHB*,T39, . ^ , 

**THPUGI,L<V : F(HYD PUMP SHAFT PO UE R i HP > ’ t / i 
«T1E,*S’J* ,T1P,* (FT) *,T27,*PRrSS *,/ , 

?T27 , * (FS lA ) * , /, 

* 1 ^ 2 ( IMP ) , / 1 
CO m?'j I:l,f*TC 
KsT'iOCm )-l 

V.R 1 IE (oiAPaSn.TALTd) ,TPRESS I n , THRUST* I, U» 

•?( Turusr ( I, J*i ) , J 1 J=i f K ) 

Fni<'*AT(//nC, I3t3X, F3.CI,3X,F6. 2, 6>, ’THRUST = «, 
<• 012 . 6 , • * X -XT D + • , 

« 2 (D 12 .t,' <■ X v«',I 2 t' + '),//, 

«2(H7X, 3(012.6,’ 0 X *7’, 12,,’ < ’,),//)) 

CuMItioE 

PETUKi* 

Et'D 


L01413 
C01413 
C01423 
C01<*23 
Cni423 
LD1423 
C.C1423 
CO 142 3 
60 14 2’ 
C01423 
L01426 
001431 
L01431 
CO 14 60 
cai 46 o 
LP1460 
LO 1460 
C01460 
C01460 
L01533 


i 

03 

O 



»/» ► I 


t«4iEC IWtWLimgTHaiM 


H* i||l>>m'Ul.liiM.'l.iMilllil1WPH 


in 

00 


SrOR.S H.HIfCE/Vc iH.HU.CE/V6 
FOR S'3£J-C2/06/79-I6.1 Cj20 (h,) 


SUDROUTIt.E HINGE ENTRY POINT 001126 


STORAGE USED: COCLIl) P311T5; PATA(OI D00265f PLANK COPHON(2» DOOODO 


COMMON 

CLOCKS 

: 

0003 

NUMS 

0C0CC2 

C0j4 

CONf 

000014 

COOS 

RATES 

0001 32 

C0C6 

TIMES 

000043 

C ■'u? 

TARRAY 

T2i:6 

0 010 

TRAu 

DC'oliT 

r”i 1 

NAMES 

GCL424 

C012 

CHAD 

CEC212 

0013 

LKGS 

CDC346 

0014 

LHMTRX 

0DU41 


EXTERNAL REFERENCES IBLOCKf NAME) 


L‘015 


COS 
















cni6 


NNDUl 
















C017 


NIOll 
















0020 


MO 21 
















CC21 


SORT 
















0022 


NERR2i 
















0 02 3 


NERK31 
















STORAGE 

ASSIGNMENT CBLOCK, TYPE 

RELATIVE LOCATION, 

NAHEl 









0000 


000C4E 

13F 

0001 


000002 

133G 

0001 

DODllS 

14L 

oooo 

OQPO 14 

15F 

COCl 


D00C66 

155C 

DCDl 


cm 105 

166G 

onoo 


OOOICI 

.19F 

0001 

000174 

20L 

0001 

DC0145 

204G 

COCO 


0CD13C 

21F 

0 Ol. 1 


CuO 1 64 

21SG 

cmi 


000200 

227G 

0001 

0C0264 

2E1C 

EOOl 

DCD303 

262C 

COLl 


0CO343 

276C 

C''DI 


CO" 3 62 

3076 

0001 


000313 

35L 

I3C01 

000623 

353G 

cool 

0 0 "6 4 2 

364G 

COU 


CCP372 

4PL 

onpi 


CC0746 

413C 

oor-l 


000765 

424G 

0001 

001061 

4 52G 

0001 

POllOQ 

463G 

OCLl 


000431 

50L 

COCl 


CU0441 

5IL 

0"'0t 


(3CC460 

SOL 

0001 

C2C477 

53L 

cool 

OOPS 16 

SSL 

COCl 


000526 

56L 

CXI 


C0054S 

57L 

0201 


OOC564 

5BL 

POOl 

DCC6C2 

55L 

0001 

0 C C6 5 2 

6CL 

CCCl 


con7Pc 

75L 

0 001 


C0071C 

76 L 

0021 


000720 

77L 

COCl 

020727 

79L 

cool 

000775 

82L 

COCl 


001012 

SSL 

CQCl 


CC1C23 


COO I 


001C33 

S’L 

0001 

DQ1042 

B9L 

EQOl 

Oril 12 

9CL 

con 

R 

OQ'1232 

ACT NAM 

oocs 


C'O 1 3C 

alt 

0013 


002270 

ALTFLW 

0005 

C0C127 

CGLOAD 

C006 

0C0D21 

CL NO 

0005 

R 

PQCC72 

DEF 

0 006 


000031 

ectran 

0012 


OOOCCG 

FCRAD 

0012 

GQ0134 

FLCRAD 

C0C6 

00PC13 

FREE 

C0C6 


onOois 

FRNC 

CCS 

R 

OOOCiOS 

HM 

O'’ 20 

I 

000003 

1 

non 

PDCl 34 

lACTNO 

rOD4 

G 0 00 0 3 

lAPUSD 

on 14 

1 

PCP4C7 

lA SCN 

0 006 


C00041 

ICARD 

0'’14 


POO’’45 

ICOOE 

P0C6 

racoo 2 

IFNO 

rolo 

PCCl 36 

lETP 

cell 

1 

0C0217 

ILCAD 

L "'IQ 


( 30EOC, 

Ih UEX 

C"20 


000251 

INJPT. 

P0C6 

OOCQP6 

I PHASE 

C014 

OD^a 12 

IPTR 

cr i4 


PC0613 

IS IV 

LOl 1 


LOO J IE 

isi ro 

U" '() 


ncocoo 

ISTART 

C0C6 

000040 

ISTAT 

"0 06 

PDXP 1 

ISTOP 

CO 14 


n"67i 

ISU'V 

i,‘'ij4 


COOCJU 

ISYS 

0'’26 


CJ0012 

lUNI T 

poll 

002254 

1 VEH 

C0P6 

0CXP7 

IVFLAG 

CO 1.0 

I 

OOOC05 

J 

0 00.0 

I 

GC.OOC4 

L 

C’14 


OQCOQO 

L''M 

OODO 

I 000013 

LOAD 

C0C6 

P00036 

LPHASE 

C0i,6 


OCPC34 

LT YPE 

C 006 


D00042 

LUMT 

0^14 


000535 

MI V 

DP14 

000747 

KVNAH 

CC14 

0 0 "7 7 1 

HVSVS 

CC14 


001C02 

MVVEH 

C'’C3 


EOOCOi 

NA 

omi 


200C0G 

NAME 

0003 

000000 

NL 

con 

DCC212 

NMCOE 

C014 


OCl 135 

NPV 

0000 

R 

COiOOL 

N'OUATA 

0 326 

I 

OC!’O0 3 

NOL 

CPr6 

ccooto 

N0L2 

por4 I 

COXO? 

NOS 

DCC6 


nn"005 

NPLTS 

0"06 


LOO .,04 

APIS 



P.3 11 36 

NSV 

0014 

con 37 

NSWV 

C014 

rC114C 

NVCONF 

C0L6 


P00037 

NR 
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CM-'A fi C'ncic 

P 

N'’3r 

P 

O0OPO2 

PI 

0013 


OnpoPQ 

PSLKG 

R ucncil 

PA 1 MAX 

c"n( 

R 

'1302P7 

SriH 

ODOO 

R 

O0COO6 

SPAT 

CG13 CC0C26 

SVLKG 

Otl4 


001013 

SVNAM 

0014 

I 

001046 

SVSYS 

CP14 C01G57 

SLUNmM 

0014 

I 

0CU12 

SWVVEH 

0007 


DOCOPO 

T 

CCC6 COCO 11 

TTIMl 

O-’DC 

R 

000001 

T6 

0014 

I 

GQ1123 

VCONF 

CP13 G02124 

XPSLKG 

0013 


000212 

XSVLKC 

0006 


O0C035 

XTPNO 


coon 

R 

OPPOIC 

RAID 

GOOD 

R 

POPDl 1 

STLRM 

C014 

1 

001D3S 

SVVEH 

C004 

R 

O0CD06 

TP 

C0Q7 


001750 

HRT 


QOC^ R rinncnc RftTC 
ooc<* I cdnciS STVLv 
ocu'j I oanoi swsvs 

00C6 ODOC25 TPCALU 
cac5 nCD131 XPACH 


COlcl 

DD103 

C01D3 

C01P<) 

CGIC<( 

cnic-^ 

CGlGt, 
C.G 1T6 
CC1G7 
LP1C7 
DGUC 

com 

cnm 

[-0113 

rcu3 

C0113 

r.TU7 

CG 114 
LGUb 
CO lit 
CC 1 lo 

omit 
cni7 
GO 117 

cni:u 

C01?l 
C0121 
cn 1 G 2 
C012G 
00122 
DO 122 

or 122 
GO 122 
C0123 
CD123 
CC124 
C0126 
LO 1 3C 

roi ic 
cri:2 
CQ13C 
CC136 
GD137 
CCl'll 
C0142 
CC1'13 
CP14C 


1* 
2<^ 
Z't 
20 
2 0 
20 
20 
20 
30 
30 
30 
30 
30 
30 
3o 
30 
30 
30 
30 
30 
30 
30 
40 
40 
40 
40 
40 
40 
40 


40 

40 

40 

40 

40 

40 

£.0 

60 

70 

£0 

'/O 


ICO 
llo 
120 
130 
1 40 
ICO 
16 0 


PAR 

CUD 

CFLl 


END 

C6L2 


END 


SUCP0UT1I-.E HINGE 
INCLUDE PAR, LIST 
PPOC 

PARAMETER MVA=29 ,NR = 30HNA *7 iHNL = 46 fNG:HNL + l 3,HMV=9,MSV=9 fHSWI/=9 
0 ,HVCOI.F:n 

PAilArtriEP !Ul5PDS = 4,HNEQNS=5,MNOCF = iOfMNTEQN = 5 ■ MTN0CF = 10 
CO IMON/NUMS/NL ,NA 

INCLUDE CCLl.LIST 
PPCC 

CPMMON /COMF/ISYS( 31 ,IAPUSD(3) ,TP,NOS,P« 3) jSTVLV 
INTEGER STVLV 

COM«ON /.5ATFS/RA T£ (H.NA ) ,H « ( HN A 1 , DCF 1 H NA ) , CGLO AO , ALT , XMACH 
C 0 M MO " / T I N r S / 1 S T A'R T , I S T 0 P , T F N D , N C L , N P T S , fO P L T S 
0 ,TPMASE,IVFLAG,P0L2 ,T''IPE,IUNITjFREFJ21 ,FRN0(4> 

V , CL‘ L( ri } , TPCALLl 4 ) ,ECTP AN { 3 I ,LTYPE , XTPNO,LPHASE (NU 
O , ISTAT , ICARDjLUNIT 
COMMON /fCRPAY/ T { 1 2 IP ) , W PT (NP 1 
COMMON /TPAJ/ INDEX (l;P ) ,I FTP 

CPMH0’I/NAfLS/NAMEt2,MNL), lACTNOCMAL I.NMOOE ( 3 > ♦ I SPED I 2 J , I LO AD t MN A » . 
O 1 VCH (MNL 1 ,ACTNAH (HNA,2l 


LUPF. LrL2»LIST 
C 

MOr> /oPAD/FGRAO (MNL, 21 .FLGRADlPNL) 

HON /LKGS/PSLKG (HNL I ,SVLKC (MNL l,XPSLKG(HNL 1 ,XSVLKG(KNL> 
TFLrtd'.KLI 

HON /LMHTfiX/LMH ( 3 ,MNL ) ,IPTR ( 3 , 3, 31 , ICOOE (3 ,HNL ) t I ASGN (Ml 
MIVniNL),!-^* 


SWVfMH( 

NF(MVrOfJF).N 


;LKG (HNL I tSVLKC (MNL l,XPSLKG(HNL 1 ,XSVLKG(KNL> 

'LMH( 3,MNL) ,IPTR(3,2|3> , I CODE ( 3 , MNL ) , I ASG N (M NL 1 , 
MIV(MNL) ,I^IV(MNL ) ,ISVV<MNL) , 

HVNAM(?,mmV) ,MVSYS (HHV ),HVVEH(HMV), 

SVNAM(2,HSV) , SVVEH(MSV). SVSYS(HSV), 

l( 2,MSWV),SU'SYS(MSWV) ,SWVVEH(MSUVJ 


REAL MOC ATA/’NCOATAV 
data T6/l,0F6/ 

DATA PI/3.1417/ 

C CHECK INBOAPj CICVONS 
DO 2J r=i’,lb,2 

L= ILO'<n( I ) 

J=IASOI.(L» 

12 IF (J .FO. 01 00 TO 20 
SPAI=1 
SHM=1 

IF (S I Lf.( tHM.HMd n .EO. SI GN ( SR A T , RA TE ( I ) 11 GO TO 2C 
PAijrl , -tiiv(-r.42-DEF (III 


o ^ 

•n 

O 2 
O S 



cocnoz 

COOCDZ 

L00D02 

C0CGC2 

C0CUG2 

L0PQC2 

cncoGZ 

LODcr? 

CCDOO? 

LOCC02 

L00DC2 

L00002 

oorooz 

LDC0C2 
L0PPD2 
COOOO? 
LDDCC2 
L00002 
L0DD02 
horooz 
COOOC2 
GGCOO? 
LOnrno 
CO 0002 
C0C0C2 
LO0CO2 
C0DC;C2 
L00CG2 
LOOGO? 
CDD002 
L00D02 
L00CC2 
.-0CD02 
C0D0D2 
C000C2 
LD00C2 
CP0C02 
C0D0D2 
LOGPO? 
LDC0C2 
LDCCC5 
lOPCIP 
L0C012 
L0D014 
LDC017 
UDC02P 
C00D30 





»r ( 



C 0146 

17 * 


crm? 

U* 


CC 15 C 

19 * 


CDIS 2 

2 C« 


3 CU 63 

• 21* 


COfM 

22 * 


CC 1 74 

23 -x 


00174 

cri 76 

24 * 


25 * 


cr 175 

26 * 


CC 175 

27 > 


CP 176 

, 2 £* 


■ CC 177 

29 / 


LP 33 J 

3 C* 


L 3 ;rc 

31 * 


roro2 

32 > 


.. 0:13 

3 '(.< 


1 P 213 

34 * 


f.r >;'24 

3 5 * 


COTT'l 

36 * 


C 0326 

37 * 


CD 2 31 

3 £* 


CO 22 : 

39 * 


UP 2 I 3 

4 fj* 


r.r 2 i 5 

4 1 * 


0 C2Z6 

42 * 


cr .2 3 7 

4 3 > 


00 24 1 

44 * 


<-0242 

C 0243 

45 * 

ax 

46 * 

i 

CO 

to 

CO 3 4(1 

4 7 * 

EP 246 

4 c* 

C 0257 

49 * 


33270 

SC* 


3 C 271 

51 * 


CD 272 

S 2 * 


33272 

53 * 


L 0274 

54 * 


CP 305 

55 * 


3.3 305 

5 6 * 


C 33 IO 

57 * 

r 

CC 316 

5 fc* 


LO 32 C 

5 ?v 


CP 321 

6 C* 


CP 322 

61 * 


PC 32 3 

62 * 


CC 324 

t 3 * 


CP 324 

64 * 


2-:;24 

OS* 


L'- 326 

66 * 


CP . 30 

67 * 


cr 131 

6 F* 


CO 3 32 

69 * 


cr 322 

7 C* 


CC 332 

7 1 * 


r.T 333 

72 * 


. p -34 

7 3 * 


c 

c 

c 


c 

c 

c 


c 

c 


PAC::R«C >2.->PI/360, 

CTLKMr (PI j) /29CC . ) . 9 56t f>»CC S < R AC » 

IF tAPSUi''!!)) 4lE. AOSfSTtHM)) GO TO !<♦ 

WPtTE (t,lTI HH( I ) , ( ACTfJAfM T , J 1 , j:l ,2 ) ,STLHM,TP 

. WRITC (15,15) HM(I),(AcTNAHn,J»,^=l,2),STLHH,TP 
rs rOKf'AT (' HIWCC FOtiinT LOiD SFaO.lO,’ IN-LPS CN •,2Ab,/, 

♦ ♦ IS CRCATER THAR ITS STALL HIUGE «0 HCN T • , F 2C . 1 C , • IN-L8S*, 

T / ,’ AT TI'ILT SFIZ.?,’ HRS') 

13 FOKHAT 1 1M1,2U(/) , IX, *HIW''C HO/'CAT LCAO *,F30. 10,' lA-LRS ON *, 
w 2A",' IS GRCATEH THAN ITS STALL HINCF MOMENT '.FRO.IO, 

1> • IN-LbS',//,' AT TIME= ',Fi:.7,' )(RS’,/,1H1) 

GO TO « ^ 

lA RATHAX = 32.'>7vStRT( l.D-ADS (HM ( I ) / $ TLHd ) ) 

IF (AeSfRATCI I) ) .L£. TATHAX ) GO TO 20 


,JRITL(6,19) lACTNAIllI,J),j:l,21iRATriII .RATHAX-TP 
L'RirC (IS, 21) (ACTNAM f I , J ) , jri ,2 ) .RATE r I ) ,fiATMAX . 1 


20 CONTI mil. 

CHLC)» OUinC)Al(D elevons 

DO AO 1 = 12,114, 2 
L = ILOAOm 
J=I/srt.(L) 

32 IF { J .FL. □) 00 TO MO 
S<?AT= 1 
S H ri :: 1 

IF (S ILNiSHK, HM( II ) ..ca* SIGN! SRAT,RATC (I ) n GO TO M C 
RADT.RSS'M-fi.S-DFFd ) ) 

RAU^RAD^^ ••I'Pl /36C. 

STLHM: CP IJ ) /290P . 1 *0 . 4 £95 E6*C0 S ( R AD ) 

I-r (ArS(HH(D) .LE. ACS(5TLHM)) GC TO 35 
WRITE (6,111 HM ( I) , ( ACTUAM( I, j) , j:i,2) ,STLHM,TP 
WRITE a' , ISlHNt I) ; (ACTNAMii; J) ;j=i;2) ISTLHMJTP 
GO TO 4C > ’ f 

35 RAU'AX = 33.11 9 SQR T ( 1 . 0-A P S ( HH ( I ) /S TL H'1 ) ) 

IF lARS(l!ATE(rn .LC. RATHAX ) CO TO 40 


«RlTEt6,l‘J) (ACTNAKn,J),J=l,2),RAT£in,RATHAX,TP 
WIMTE (15,21) 1ACTF.AM(I,J),J:1,2),RATE(I),RATHAX,TP 


4 0 CONTI NLC 
CHECK liODl FLAP 
T = 16 
SH'( = 1 
SPAT=1 
L0AP=1 

IF (SILN(SHM,HM( IJ) .EO. SI GN( SR A To (f A TE( I M J L0AD=2 
L0A0=1 ; OPPOSING LOAD 
L0AF,= 2 ; ICING LOAD 

IF (NOS .FQ. 0) CO TO 90 
GC TO (--.SSI.LOAD 
5L 60 TC (51,02,53) ,NOS 

51 RAIMA x=(-.I 255S4 3<S0RT (.01C52 32+ 19.a38100e«^1.28563l7- 

9 APS(ii»( I )/T6 ) ) n )/ 

« 4.ri9C5CM 

CO TO S<- 

52 RAT)!AX = (-,1’0 39F6*S0RT( , D 1 64 05 6+ ( 2 . 0 5 65 2 36* ( 1 , 3981675- 


CODr34 
L0nC4D 
CDC05C 
LCPDSF 
CD0O74 
1.0 3113 
LOai 13 

coaii 7 

LDOl IX 
GOQl IT 
603112 
1.03113 
COCl 15 
LOCI 20 
COOl 20 
L031 39 
..GC154 
1.33154 
LPC2nc 
Lr)r3Go 
CP020G 
CQC2C3 
iDC2C6 
L0r219 
LG02 12 
C002I5 
cCn2U 
C00226 
L0P.2 32 
C00236 
COC? 46 
LDC2ST 
L0C272 
L0031 J 
LPC21T 
lOC326 
.C0r326 
L0033? 
CD0352 
300353 
CCr37I 
00337 J 
L0C373 
L00375 
L0CI77 
L0C4CP 
LOC4P2 
L0C4D2 
L0ri4P2 
UCC41 7 
C0C421 
lOC4 21 
300441 
LDD44 1 
L0Q441 
3004 56 
LOOM 6 G 





■m.'u 


m 
! I 

( 00 

1 


C0334 

744 

CO 3 34 

754 

CC335 

764 

CO 336 

774 

C(?3 36 

7 6 4 

CC336 

794 

C0337 

£.C4 

CO 34^ 

614 

L0341 

c2 ? 

CM 341 

iz* 

CC341 

o44 

C0342 

o5* 

C"343 

664 

CP343 

874 

00 343 

C84 

C!3344 

6 94 

C0345 

VC4 

GO 345 

913 

CC345 

9 24 

CD 346 

934 

C0347 

944 

CP347 

954 

DC351 

964 

Cn3E2 

974 

GC 362 

96 4 

C0373 

994 

CO 3 73 

1004 

CC373 

1C14 

CC373 

1024 

nr 3 74 

1C34 

CO 375 

1044 

GO 376 

l2i‘'4 

C0 377 

1064 

C04ri 

1074 

C04C2 

1064 

00 4 03 

1094 

C04C4 

11C4 

C0405 

1114 

00 406 

1124 

CO 4 07 

1134 

00 40,7 

1149 

00411 

1154 

C(3422 

1164 

00422 

1174 

0C433 

1164 

00433 

1194 

C0433 

12C4 

CIC433 

1214 


C 


c 

c 

c 

c 


c 


c 

c 

c 

c 


* AoSJnf^ ( I ) /T6 m ) >y 

# J.T2‘12610 
CO TO £? 

53 RATHAy=f-.D9493478+5QRT«. 0090125* 1.92167324(1.4121217- 
4 AdSIHt<tI)/T6)l ») »/ 

4 .4606366 

GO TO 59 

55 CO TC 156 , 57 , 5S ) tNOS 

56 RAIMA' 1.4 05 035 6* SORT t 1 . 9763 7 37- 1 4 , 1 202264 4 (. 47 9 389 3- 

" A3 J (l■‘•■ {I)/T6>l)n/ 

4 2. .6.1132 

GO TO ‘.9 

57 RAT HA V- 1.79 25 523 *SQRT( .62«i39l-( 1 .117365444 ,56156701- 

4 A05 (i!IM 1 1 /T6 > n n / 

4 .j55o7T 


GO TO 59 

5b RArMAX:(.56952632*50RT(.3 24 3598-).5 22 7lOe4( ,6 2C4 7C7 6- 

4 A''5i'rm/T6)) n )/ 

4 ,2113554 

59 RA rHAX = l J..3 

IF 4AOS4i;aTE<1 I ) .LE. RATHAXJ GO TO 6G 


WPlTE(t,19) 4 ACTRAH(r,Jt,J:i, 2 ),RATEII},RATMAX,TP 
RPlTt (15,21) (ACTnA,'Ur,J),J = l,2),RATE(I),RAT7‘AX,TP 


6D COJ.TimiE 


CHECK RUDOLR 

I = 1C 
SHH^l 

IF^(iTr.fJ(SHK,HMHI » ,E0. 51GN(5RAT,RAT£(n» » GO TO BE 
GO TO 475,76,77) ,VOS „ . 

75 RATflAX=(-I5.SB323S4A3SlHM (1 )/T6) ) * 27,047058 

CO TO 79 

76 RATMAX:4-71.1 76474ABS(HHt I) /T6 ) ) + 54 . 094 1 17 
GO TO 79 

77 RATMAX:(-n6,76474AeS(HHIl)/T6)) + 81,141174 

79 IF 4 API CRATE ( 1 ) ) ,LC. RATMAX) 00 TO 80 

U'PITt((j,19) (ACTNAriCI ,J),.I=1,2),RATC(I) ,RATHAX,TP 
RRITE 415,21) 4 A CT N A H ( I , J ) , J= 1 , 2 ) ,R AT t ( I ) , R ATK AX , TP 

8C COMTINUt 

CHECK SPEED D»AKE 


CP434 

1224 


CC4 35 

12 34 


CD44t, 

1244 

84 

C2441 

12 54 

85 

LC6<,2 

12 64 


CC443 

U7.- 

86 

CC444 

1214 

9 7 

Cntt45 

1294 

CP4M6 

1 3C4 

09 


1 = 11 

IF 44? ATE 4 1 ) ) 90 ,90,94 

CO TO (65,86,87) ,WOS 

RATFAX = 4-11.2962964A0S(Hf1(r)/T6))+26.2O7 3O6 
CO TO .>9 

RA ItiAV: ) -22.592592 4 A BS I HH ( I ) / T6 ) > ♦ 52.414813 


CO TO ‘9 

RA TMA X = 4 -3 3 .88flS84A45 
IF (A?S(1?ATC(1) ) ,LE. 


T)/T6) ) * 78.622218 
RAU'AX) GO TO 90 


o 

"o S 

o 2 

o Si 
70 r * 

•o? 




cno46n 

C0C460 

L0C475 

L00477 

C0D477 

0Q0477 

000514 

logs 16 
4,nC526 
L0C526 
C0C526 
C00543 
L430545 
000545 
G00545 
200562 
1^00564 
C0C564 
CQC564 
4,0060? 
C00603 
V.QD603 
C0C61? 
C0C632 
l0063? 
.,□0652 
cnno52 
C0C652 
C0C652 
C0C652 
C0Q654 
000656 
lOC657 
CQC667 
000700 
(300706 
C00710 
C00716 
cao72n 

C00727 
LP0727 
C0C733 
C0C755 
L0C755 
L00775 
uOD775 
C(30775 
L-007 75 
4.00775 
lOC777 
L01002 

CQicn 

0 OIO 2 I 
C01C2’ 
L01031 
I.C103 3 
CO 1C42 





■■n w .ju r ni; 


II I I OT i l ii i 


criftit 

131« 

COAAC. 

1320 

C0461 

133« 

C0472 

134=» 

0^472 

1 3E« 

CE472 

1 :e* 

CC*.73 

137> 

C'^‘^7J 

13! >> 

:04 7 3 

1 39# 

C0‘(74 

14C# 

C0474 

I4l# 

C0475 

142# 

CC47o 

143# 

00477 

144# 

END FOR 



C 


c 


:TN&H(I,J),J=1,2> ,RATF(IJ,RATHAX,TP 
(,1X.2A6,* ANGULAR RATE INPUT ’,F6.3i* DE 

ji'Actr rXte -.fg.!,’ deg/sec at *,FX5.7,* 


WRITE (6fl°l IACTNAH(I|J)fJ=l»2>tRAT£(I)tRATHAX,TP 

WRITE (1S,2H (ACTN . 

19 FORMAT ( UII ,2D( / > , ' 

>>>ECOS •'AXIPUH ALLC. 

21*F0tJMAT (lXf2A6,’ ANGULAR RATE INPUT SFGtli* DEG/SCC*,/| 

» ♦ C/crCPS MAXIMUM allowable RATE *,F6.3.* DEC/SEC’./, 

* * AT SF12.7,' HRSM 

f;CL=51 


DE6/SEC EXC 
HRS*,/, 


90 CONTINUE 
RETURN 
END 


C01Q42 

C01046 

C01070 

201107 

CD11D7 

C011C7 

L011C7 

C01107 

L011C7 

C01107 

C011C7 

com 2 
001112 
C01134 


1 . 

00 








000301 

rcro32 

0D0122 
QCC5C7 
DC''127 
R CCCStiO 

norci 3 

DOODl 1 
I 0C0C03 


13<tL 

157G 

221G 

Sf-U 

CGLOAD 

fPAVCE: 

FPEF 

FC 

lAPOSO 


rCT6 0QCC02 l€!.n 


00"277 135L 
DDP03fc 16UG 
PDG211 273C 
CC0332 AC7A4P 
P0'^C21 CLNC 
nOf'CPf' FCCAD 
rCPCl I FREK 
POf'ClS hP 
rcr^<^7 lA'Cr. 
C00136 IFTP 





V, " '0»*V* > Ot»#^ 


C"1 1 


CO''2l7 

7LLAC 

onor 

T 

COCCI 2 

COJC 


CC01<*{ 

It JPY 

O'^la 


030C72 

“.TCP 

I 

rcocoE 

IS 

GPIS 

I 

000061* 

c oZh 

I 

tCOOi? 

I5HED2 

orcc 

T 

0CC020 

O'-^CQ 

I 

C00C21 

isn 

3r«Cl; 

i 

000022 

CPQ6 


LCPC12 

ICr.IT 

3011 


000254 

c see 

I 

CC^DIC 


COD'’ 

I 

C3000 3 



cc-'mc 

U'MT 

coin 


^no'’ 3 c 

lCC3 


ro'’L.oi 

f.A 

onil 


0 

COIA 


LCl 13C 

M‘V 

one ■ 

T 

iiirci 1 

OCJM 


CLiOO&T 

KOS 

3016 

i 

nooz 7c 

C2U 


EDI 1 3l 

t.SY 

OPl'l 


OC1137 

COCR 

R 

tC'^Cll 

P 

0022 

r 

0C0105 

C'’29 

R 

CJOjCl 

PPlSDP 

ocn 


oooc.oc 

0021 


ED0074 

SFC 

arTij 

T 

'^0001 3 

C.01') 

I 

C01l,3S 

OVVFh 


i 

00 1 1 0 1 

0 O’’ 2 


00 

7AlT 

-mn 


030CJ 4 

0 02 2 

1 

JOn_rs 

7ISLCF 

on ' 1 , 

1. 

oocpnt 

C0C6 


r.O'iui 

TTII'E 

0"17 


no OOP 6 

OPJ 7 


C30017 

ULTOFT 

DD17 


OOCjCOG 

0017 

n 

D03C5C 

XFLOw 

OPOD 


0CD131 


IPOOU 

OCDO 

r 

00DD13 

1M00E2 

coon 

I 

lOTAP 

0006 


000006 

IPHASE 

C015 

I 

ISAT 

0014 


0C0613 

ISIV 

coil 

I 

ISPCC3 

0QC6 


COODDO 

I ST ART 

rcu6 


IST2 

OCOO 

I 

OOOC23 

IST3 

C014 


IVEH 

0006 


C0CCD7 

IVFLAG 

COQO 

I 

L 

CC 14 


CCCOOO 

LT'M 

C006 


(UV 



nOC747 

MVA AM 

C014 


NAME 

CP21 


001415 

tJEOMS 

P0G3 

I 

NOC 

nO"’! 


PLcom 

NPCF 

CQ06 

I 

KPER 

VCC6 

I 

OOECC5 

APLTS 

CD 06 


MSWV 

CC22 


CCCQ74 

MTC 

CO 14 


PAM5 

COLO 

c 

PCCOCO 

PCFF 

CC17 


PSLXC 

DC1.5 

R 

002061 

PUR 

CD05 

R 

STVLV 

CC13 


CCC056 

SVLKC 

CD14 


SlsSYS 

C014 


run:? 

SLVMAM 

CO 14 

I 

Tr.NlJSD 

CCI5 

R 

C0CC56 

TFLRT 

CG2P 


TP 

ncot 


PC. COP 5 

tpcall 

CD22 


TVOL 

pni7 


rcro47 

LILPRF C 

CO 17 


ULTPLC 

0014 

I 

P01123 

VCONF 

E007 


xhach 

P013 

R 

000134 

XPSLKG 

CO 13 

R 


QCC014 

IPQCE3 

CCICI 


mcenc 

IMPEX 

0CP07I 

IPPLT 

GO 14 

I 

na0212 

IP7fi 

D0n2 15 

ISPFD 

CClO 

I 

CCPC16 

ISPECl 

Dcr040 

istat 

CDC6 


CDPCOl 

1ST OP 

r006 71 

iswv 

0CC4 

I 

DOnCDO 

ISYS 

000004 

3 

CCLO 

1 

CQPC07 

K 

CrP036 

LPhASE 

C0L6 


ccnc34 

LTYPE 

ccr7ii 

KVSYS 

CO 14 


CC!r02 

HVVEH 

pcncco 

ML 

CC 11 

I 

000212 

LMCCF 

oprc>ri3 

KCL 

CCC6 


ccrcic 

MOL 2 

or 00 04 

MFIS 

cca 


0P1414 

MSPCS 

0CU4C 

NVCOKF 

CCE6 


CCCC3T 

MU 

0CP044 

PLIM 

CP21 


CCl 3?C 

PRALT 

QpnOOD 

RATE 

0015 

R 

P0D267 

SAT 

or 10 1 3 

SVMAr 

CC 14 

I 

CPIC46 

svsvs 

ecu 12 

sy WEN 

CPl7 

R 

ropccic 

T 

rrccc6 

tflseo 

CC22 


CC2C12 

TPRLST 

pprc75 

TPRi-sS 

OCLZ 

R 

ro4iP2 

TR 

00DC03 

ULPPLC 

0C17 


000014 

ULTALT 

PP1750 

WRT 

CP21 


PC1224 

X ALT 

0C0212 

XS VL«G 

C0L6 


000C3S 

XTPAC 



cniQi 

1* 


L01C3 

2« 


00 103 

2* 


CD 104 

2<f 


cniG4 

2* 

u» 

cnios 

2-^ 

CO 

* 

CPIPC 

2« 

on ICC 



COUT 

3« 


EC107 

3» 


2P1IC 

3> 


com 



C0112 

3» 


CP 113 

3’t' 
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TtJOCF 

"304 

R 

000036 

TP 

0006 


000025 

TPCALL 

EP..? 


Op"Q75 

TPRESS 

00?2 

R 

rcni i: 

TF 

00.0 

R 

003235 

rsEc 

0226 

n 

CQC31 1 

TTIHE 

COOO 

R 

000237 

TTMIK 

C017 

R 

eoncce 

TVCL 

C317 

R 

CO-304/ 

ULPRFC 

0317 


000003 

ulpplc 

0017 

R 

C0C314 

ULTALT 

C017 

R 

00P017 

ULT3FT 

0017 


COPCDO 

ULTPLC 

cni4 

I 

C01122 

VCCtiF 

0 330 

P 

000000 

L AVC 

0007 


0D17ED 

«RT 

C021 


or 1224 

XALT 

0017 


"OnC52 

XFLCW 

GOOD 

R 

000212 

XINT 

0"u5 

R 

000131 

XHACH 

0013 


003134 

XPSOKG 

COOO 

R 

OOPl 77 

XP«R 

0013 


C002I2 

XSVLKG 

CDUO 

R 

0002 11 

XTP 

0C36 


000035 

XTPNO 

0000 

R 

00C241 

YALT 

COOO 

R 

00C203 

YTP 







i« 


SUuPOUTlA'C SAPUH 

LOOCOO 

CO 103 

2 + 


IfJCLUOE PAR»LIST 

CDODQO 

CO 103 

i« 

PAR 

PROC 

LOGO DO 

CD104 

2« 


PARAMETER HNA = 29 ,NR = 34HNA +7 ,HNL = 4 6 , NG =MNL-a 1 3 , MHV =9 , H SV=9 ,M SM V =9 

COOCOO 

C01C4 

2« 


4 .MVCONFzlO 

COODOO 

C01G5 

24 


PARAMETER MMSPDS=4 ,HNEQNS =5 »MNOCF = 10 » MNT E0N = 5 1 (ITNOCF = 1 0 

COOOQC 

00106 

24 


C"i;mon/nuhs/nl »NA 

encooo 

cnirc 

24 

END 


cooGon 

CP 107 

34 


IMCLUDl CPLliLIST 

LD5C0C 

E"1P7 

34 

CDLl 

PROC 

uOOCOD 

cone 

34 


COH'fO'.' /CCJiF/ISYSf 31 , lAPUSOf 31 , TP,WOS >P( 31 , STVLV 

LOCDCC 

com 

34 


IMTE6E! STVLV 

Looroo 

com 

34 


CC'-’.'-’OM /M TES/RA TE {MKA 1 ,MM(J''MA I ,OEF (HMA ) ,C6L0 AO, ALT , XMACH 

cooDcn 

con: 

34 


COliMO*' /TlHfS/ISTART ,ISTOP, lE'JDtNOL.NPTS.NPLTS 

cnncoo 

CP113 

34 


* , I! HASL ,IVFLAC,N3L2,TTI“E,IUN1T,FREE(2J ,FRN0(4) 

coccco 

ecu: 

34 


V ,CLMC(4 1 , TPCALK 4 ) .rCrpfN' (31 ,L TYPE , XTPNO, LPHASE ,NM 

cocccn 



W.I .sii' 


CP113 

3« 

CD 114 


ecus 

3« 

□C 1 16 

3* 

CP116 

3=* 

OP 116 

2« 

com 

47 

rrii7 
cr 122 

4* 

U-f 

erm 

4« 

eel 21 

4f 

C0122 

4« 

2D122 

4« 

rni22 ■ 

4» 

CC122 

4>> 

OC122 

4 4 

20122 

4 f 

Cri23 

47 

0''’12i 

47 

cni 2 A 

S7 

CriTA 

5» 

CC125 

S7 

CC12S 

57 

C’"126 

57 

LflCt 

57 

CD12b 

E7 

CP127 

57 

CC13C 

57 

C0130 

57 

CD13D 

57 

coin 

57 

C0132 

57 

L0132 

57 

C0132 

57 

00133 

57 

CP 133 

57 

LCl 3A 

57 

CC134 

57 

rni3s 

67 

CCU36 

77 

LOUT 

C7 

CPIAO 

97 

COlAl 

1C7 

col 42 

117 

CC14 3 

127 

DD143 

137 

C0143 

147 

cm 43 

157 

C0144 

lfc4 

CD 1 4 4 

17v 

20144 

167 

GC146 

197 

CClS J 

?C7 

ensz 

217 

COISO 

227 

CC16U 

237 

C0162 

24 V 


EtJD 

CCL2 


END 

CPL3 


END 


A ,ISTftr,ICARD,LUNIT 
CO/>HO‘J /lifiRAY/ T ( inOQ I ,WPT (NR J 
COdMOfJ /TRAJ/ INDEX(NRJ,IFTP 

C'JHNON/NArES/NAUEr 2 t dNL it IACTNO( MNL » t NMOOE ( 3 > t I5PED I 2 1 1 1 LO AD ( MN A > 
« IVEH (HNL » lACTNAM (MNA,2) 

INCLUDE C^LZtLIST 
PROC 

COJl’tOV /GiiAO/FG«AO(MtlL.?) , F LO'’ A D ( PNL ) 

COlU ott /LKCS/PSLHG IMNL ) tS VLKG ( NNL ) *XP SLKGI HNL I ,XSVLKG( HNL) 

ALTFL . (M’ L ) 

COMMON /Lf01TRX/LFH(3,MNL) ,IPTP(3t3»3> , ICOPE ( 3 t MNL ) ,IASCN(MNLJ| 

« MIV(MNL),ISIVtHNL I ,1SWV(MNL> , 

V MVNAh(?,''MV),MVSYS(KMV)(MVVEH(MM»M, 

« SVIJAt'r’.MSV) , SVVEHfHSVIt StfSYS(HSV)t 

« SU'VNAfl’tMSWVltSWGYSJMSWV! , SWV VFH ( HSH V ) 

>»t VCONF (Ml'COfiF t tf.PVtNSVtNSL'VtNVCONF 
ItJTECLR YCONFt SVVLHi SW V VEh tS V S Y S ,SUSYS 

INCLUDE CLL3,L1ST 
PROC 

CO'MION /OUTPUT/FLRT (HNL) tTFURT (3) ,PUR ( 3 ) , I $ AT ( 3) , SA T ( 2 » 

V, irPLTtlOTAP 

common /CCCFF/ CFU,C.2,2,?> , 

» EPAr;DE(2 ,2 ,2 ,3 > 

f ,N'’EP 

DOUi'.LF (’LECISIOM CF 

COMMON /PCOMP/ULTPLC( 3) ,ULPPLC(3) , T VO L t 3 » , HE < 3 > , 

» ULTALK 3 ) t UL TOFT 1 3,7 )|PLIH ( 3> 

* tULPRFC (3) ,XFL0W{3,2 I 

common /fuel/ FLCAC( 3),FUNU5C ( 3» ,TFUSED( 3» , FR E H ( 3 » , T ENUSD ( 31 
COMMON /SFCC/ NOCFfMNSPDS ,MMF0NS, 2 1 , S F C ( HNS PD S , MNEON S , HNOC F , 3 » , 

* XALT (mnsI'DS.MNEQNS I 3) ,PRAlT(MNSPDS,HNECNS, 3) tNSPDS, 

« Nr.0NS(l1NSPnS I .njRATE (31 

COMM.OM/TH(.S r/TALT(M.HTCQNl ,TN0CF ( MM LON I , THRUST (H NTE QN , KT NO CF 1 
R.NTC.Tf RLSS (MNICCN) , TR( 31 ,PANO 
INTECFP TMOCF 


OlM.ENSIOr 

DIl.LNTION 

DI-'LnSION XPWR(3I 
NAMLLTST/t''UG/FLRT,UAVG 
FREOT=T ( 7“' 1 1/360D. 
10TtP:U 


STORE ( NG I , 

IQVERI 31 , rUNOFR « 

r-t I r\ * k 


KSPD(3I 


C 

C TEST AVERAGK.C FLAG 
C 

IF (T(7S3) .GT. 01 GO TO ODD 
C 

C TAKE A UEIGHTlO AVCRAGL OF DATA OVER GIVEN INTERVAL 
331 IF (IGIAPT .CO. 01 GO TO <U2 
IF (IGTCf’.CQ. n GO TO <422 
IF (TP-YTt 1 '110,(i2G,‘(20 
‘(10 DO '111 Ji2,MG 

All «AvG(J!=U‘.VG(Jl+ST(jRE(J)(MTP-STORE(ll 1 
'(12 STG>c.(ll:TP 


t 


COOODP 

LQOCGD 

CCCCGD 

Loccac 

CODDPC 

LCCOCC 

C(TCOOC 

tCCDcr 

crcerr 

lOCOCD 

LDCCOn 

COCOOP 

cnoijor 

LOCCCC 

ccropp 
Lccpor 
LPCDOP 
L nc'''*n 
LCCOCC 
LDOCOd 
EOCOCP 
EDPOCP 
CGlCCQ 
COCD''P 
ECCCCP 
COCCDP 
COCOQO 
LOODOG 
COOCDP 
COOOPO 
Leoano 
GDOPDO 
crooGO 
LOCDCD 

toooon 
cnooco 
Locccn 
EOCOCD 
CD20CC 
LDOOCC 
lDCCCP 
lPPCQO 
LOOOOQ 
COGOOD 
CDOOD2 
CDC002 
L0CQD2 
CFCCC2 
C0C013 
L0CD13 
CCC013 
LP OO 1 7 
C0C020 
C0F023 
20002'' 
l'’CC3f 
L0C0A2 



Hum i«-nt-rm-r 1 1 <■'■<»»« 




Ln 

t 

UD 


cni63 

2E« 


CF166 

It ■> 

413 

CCl-»u 

Z7^ 

1 

CC17I 

2P* 

414 : 

CC175 

29« 

j 

Eorcc 

3 


Cn2Dl 

310 

415 : 

co:''3 

32v 


C02P4 

330 


rnccs 

340 


CC2T6 

3S« 

4it ; 

0P207 

36* 


CP21G 

370 


C021 1 

3f 0 

i 

CC212 

390 

1 

CC21G 

4 CO 

4 18) 

E02I7 

410 

417 : 

C0221 

<*20 


C0222 

43* 


C0223 

44 0 


CC224 

450 


CC225 

460 


CP22C 

4 70 

i 

CC227 

480 

42C ( 

10222 

49 > 

421 ! 

CO 2 24 

SCO 


ECUS 

510 


C0 2 36 

520 

422 

CC237 

E20 


CF241 

S4o 

423 

C0244 

SC* 

4 24 1 

C0244 

560 

C CALCI 

CP24G 

570 

S3u 1 

C024C 

seo 

C 

C0246 

590 

C COKPI 

00246 

6C0 

C 

0C247 

0 lo 

1009 ! 

C0247 

c20 

C FIND 

C0247 

630 

C 

C02S2 

t40 


C0 2E3 
C.R2E4 

650 


66 V 


L0 2E6 

6 70 



C0rS7 

CC26C. 

cr 261 

2C264 
C‘'C64 
CCiTf o 
oC27(j 

CfiJTl 

Cn27;- 

Cf’272 

CC2714 

CG274 

0C27& 

LP276 


b6« 

b‘i>!- 

7Crt 

71-» 

72* 

7J* 

7‘iv 

75v 

76'X 

77>> 

7C« 

79>> 

IL« 


00 1)1 1 J: 1 , NL 
STORE U‘l l^FLfJM J» 

00 mi) j= 1, ? 

STORE IJ + !.L+ 1) =TFLRT 1 ^ 
00 Rl*: J=lf3 
STORE 10 ) = TR(J) 

STOi'C (J + SL + ')»=PMR«J) 
STC'^t.l f.L + e)=rOLnAD 
STORE) .\L*9)=:&LT 
STaf.'EC.L»lo)=XMflCH 
n:is’'':( 1 » 

I2:ISYS< 2 J 
I3:ISYS( 31 
KSYS=IFTrv(Il,I2, I3> 

DO 1)18 jr! , 3 


y T?=TP 
XTP:y 

YTprvTf+FREQT 
TTIPL:TT1FE ♦ T(665)-TP 

ISIApTrl 
PlTUR '! 


XI..T = ri EOT 
GO TO ‘)23 
X Il)T=T (£,651 -XTP 
IF (XTOT ,LC. Cl RETURN 


PAni=Pi!tSUr< {'.'AVG lML + 9) ) 


ISPD=KOPO ( I I 
J = ’-1EOI.011SPD)-1 

IF <PAI1C .LT. PRALTC ISPD, 1, in GO TO 3Q9 
KVi:i 
KV2=2 

CO TO 1019 
309 DO S09 11=1, J 

IF (P"MHISPD,I 1,I1.CE.PAMO.AND.PAM8.GE.PRALT(ISPO,I1'»1,I II 
^ CO TO 609 
S09 COi.TINoE 
KV1 = J 
KVJ = Ji-l 
GO TO lOlV 
faQ9 KVini 
KV7:l IM 

: FIND FULL lATfS ON CURVES 
1UX9 J=.'JOCr( ISf G ,KV1 , 1 1 
IF (wAVG<il + 'F * 


KVl * 1 1 

Lill .UG. O.QROru) GO TO 839 


C0CQ1I3 
LOCDSA 
G0OO63 
C00Q63 
C00C72 
C0CD72 
w0CO73 
LDCC76 
GCOlOO 
EDC1C2 
COClCi) 
COCl C6 
COCl IP 
LnC112 
C0C12') 
COCl 2A 
LC0126 
COCl 13 
C0013S 
LtlClSb 
COCIRO 
tOOlAi) 
C0C146 
E0C15? 
C0CIS7 
CC0163 
LQCIES 
1-00167 
L00171 
LOD2C2 

cnc?D 2 

C0C202 
C0C2C6 
L0D206 
L0C2C6 
CQC2r6 
C00217 
L0C217 
0CC217 
EnC217 
lOC2?5 
1-002 3C 
caa2 3i) 
L00Z36 
tooacp 

uOC2it2 

LDC251 

CDC253 

C00271) 

109274 

UCF276 

lDC3CQ 

CnC3C? 

C003C3 

crcii’i 

CCG106 

.-CP334 





JjJU>rtU»*"««5T*WnWi 


1^ 1 ip i HUm V «---*e^g’Tr?W\'iK*igr,TOtS&g< 


CO j:c 

6 2* 

FRA7E UC.C 

C0034P 

CC.Z'il 

o ^ ^ 

CO VC^ K:1,J 

COC34 7 

cr :-'M 

4,4 V 

70v FRATCUFbATOl +SFC ( ISPO ,KW 1 ,K 1 1 ) *W A VG ( 4 + NL ♦! )** IK -1 » 

LOC347 

cc3:t 

65* 

J=uOCFnSPO,KV2,ll 

C0G36S 

C“:327 

o6* 

, FRATS? = '1.'' 

L00370 

CO’iC 

o7* 

DO 60? KAl.J 

C003 7 6 

cr>ii3 

66 ,< 

6 09 F^ATc^-FRA TC2 + SFCUSPD ,KV*,K ,I 1 *U AVC 1 4 +NL + D** IK -1 1 

C0C376 

cr 31 3 

b?* 

C IMTERPOLATl uith prfssurf 

C0C376 

cc:i 3 

9C* 

0 rLTp:'[S(FRALTriSPD,KVl,T)-PRALT(ISP 0 ,KV 2 ,r)) 

6004 14 

-T'lC 

91* 

*Uh,‘Tf (n=l rATL2+(rRATei-FRATE2l*l(rAMB-PRALT(ISPD,KV2|in/DELTPj 

CC042P 

ccin 

92* 

60 TO 49 

L0C427 

CCZ7Z 

93* 

639 FURATC I I ) =6.0 

C0C4 31 

cr331 

94 * 

849 FUSlO afuratf m *XINT 

C0C4 32 

CO 322 

9 5* 

Trust ''1 11 atfusco ( T ) + rusFD 

600441 

L'1323 

96* 

FRUM :)=TL0A0[II -TFUSlOIT ) 

L0C443 

cn 324 

97* 

t ’'JuSLP-WA Vo C 4 +f.lL +I 1 *XI UT 

4,00445 

20321 

9f V 

TEMJbOd 1 :Ttr.‘U5DI IKE'JlIStC 

C0C4 50 

jr *1 c 

99 !■ 

c 

i;nc4 50 

r r * ’ ^ 

icr* 

C COKPUTL TAt.K PRESSURE 

600450 

icz?b 

Id* 

C 

C004 5P 

cnzrc 

IbC* 

IF irVFLAG .E3. 1) TC*1P=ULTALTII1 

LCr453 

cr 330 

ILZ* 

IF (IVFLAC .EQ. 2) TE ‘iP:: < UL TOF T ( I , 1 PH ASE M 

L0r46C 

cr 332 

1U4 * 

CALL ’•,*^,1; ( xcpPjFPEHl I 1 ,TVDL (I ) ,ULPRFC ( I > ,HE II 1 ,2 » 

1,00466 

CC33 3 

U 5* 

2069 C0KTI'‘Ul 

C0CS13 

C032; 

126* 

C 

CDC5 13 

00233 

lt-7* 

C CHECK AGAINST FUEL AND PRESSURE LIHUS 

L0CS13 

CC333 

luG* 

C 

C0C513 

CC33S 

129* 

2DD3 DO 2011 1=1,3 

600513 

C034C 

lie* 

IF IIOVER(I) .EO. 1) GO TO 201D 

000513 

CO 342 

111* 

IF (FRLMI) .GT. FUNUSEIDJ GO TO 2010 

600516 

CC 344 

112* 

URITL 115,0591 I,YTP .TFUSEDIIl 

COOS2? 

cn^si 

113* 

659 FORkAT 1* NO USAPLE FUEL PEHAINING FOR SYSTEM 

COC532 

cr3ii 

114* 

* • AT TIME : ‘.riOK,' HRS',/, 

600532 

jC3U 

US* 

V ' FUEL USED = ',F 9,3,' LDS'l 

000532 

CO 3'' 2 

IK* 

lOVLR (11=1 

b0B532 

C0353 

117* 

2iUG COl.TINUE 

C0C535 

cr3T3 

116* 

C 

cnc535 

C02S4 

119* 

IF IIlINCLr 1 t > .EQ. 11 CO TO 2011 

CQ05 35 

cn3St 

120* 

IF lULPRfcm .GT. PLIMIII) GO TO 2D11 

C00537 

cr;ec 

121* 

IU!.DER(Il=l 

4,00543 

CC3C I 

12 2* 

WRITE ll5,S2 7ll,ULPRFCm, YTP 

C0C545 

OOCfct 

123* 

527 FORUATI’ TANK PRESSURE PELOW ACCEPTABLE LIMITS*, /t 

L00557 

CC366 

124v 

«» APU TANK MO", 1 3,/, 

LOGS 5 7 

0C3C6 

12 5* 

*' TANK PRESSURE = *,F7.3,* PSIA*, 

C00557 

C02t6 

126* 

*• AI TIME : *,F10.5,* HRS*) I 

COC557 

CO 367 

127* 

2011 CONIINUE 1 

C00557 

00 371 

12 6* 

IF ITI783) .GT, 0) GO TO 61D 

C0C5S7 

C0371 

129* 

C 

L0C557 

20 371 

i:c* 

f WRITE OUTPUT TAPE 

L00557 

„c:7i 

131* 

C 

CO0557 

CC37i 

U2* 

M = 1 L ♦ 7 

001562 

CC 374 

13 3* 

N2 = fLUl 

C0C56E 

C037b 

134* 

N3=r.L«13 

60057C 

rr376 

US* 

IF m7eo) .LE. D) no to 502 

lOC573 

L'l4CC 

136* 

IF (TI765I .LE, 0> GO TO 503 

L00576 

CC'4C^ 

12 7* 

5Di IF (NOl .01. 49) CALL TITLE 

605602 

CO 4 24 

1 ^6* 

NR T5rN I'lS U 

C0C607 







KO 

Q\ 


LCUCZ 
cr,‘iCt 
CC'tO? 
0C<41C 
cr-tfll 
OD'lll 
CC411 
T3 
lO-tZB 
C0t36 
CCiiio 
GQ<( 37 
C04t(l 
LC‘<‘<3 

Cnq/flj 
Cniiq S 
CG'j'JS 
Cnij ij b 
i-DSr 1 
C050? 
DPE33 
C0br)4 
CCS"5 
onbps 
cpbrb 
C w b 5 
C0S36 
CPblO 
GO bit! 
COiZi 
LC5?3 
cn r ,1 q 
C'’b32 
tOb33 
CC534 
CCS37 
Cfb^l 
Cf1j£t2 
cns'i3 
CPb^^S 
COb'JC 
CPbq? 
O^SbC 
DO 5b2 
CO 35 3 
CO 554 
CD555 
CC556 
[ 0557 
DC SCO 
LD5CC 

cr 5 f,c 

C0 56C 
00561 
C0573 
0.0 57 3 

co:7 ' 


120 ’* 
IHLft 
14 10 
1420 

1430 

1440 

1450 

14fco 

14 7 > 
I4t0 
1 4*>0 
IbCo 
1510 

152“ 

1530 

154” 

15 50 
ibto 
1570 
1560 
lb90 
1600 
1610 
162o 

16 30 
1640 
loSo 
1660 
1670 
1680 
16 90 
1 7t 0 
171* 
1720 

1750 
1740 
1 75o 
176 0 
1770 
17(0 
1 74o 
loOo 
1 6 1 O 
1 620 
1630 
lb40 
lo5o 
lb6> 
1C70 
1 6..0 
li>'/ f 
1 7Co 
1910 
192 ' 
1930 
1940 
101/ 


I« l=h 5PP ( 1 ) 
Ifl2rrt<-pl/( 2 ) 
IA3:h5PL(3l 
J=T(666I *.l 


kPITC (6|5C51 XTP,WAVGlNLo9l,KSVS,J,ISPEDlIAll,MAVG<M,+2), 

OWAVGl ''L+b) ,FRCH( 1 ) , TSPEDl TA2) , W A V C ( NL + 3 ) , W A VG f NL +6 ) , 

O Fcnii; ) ,ISPE011A3 I tWAVG(NL-*4 1 ,iAVG (NL + 71 ,FREH (2) 

IF (tiPL .rf. 49) CALL TITLE 
NOL=M'L-* 1 

bPS FOPI'AT ( .X, •V.f 10.5,lX,r7.P,lX,I2, »/’,I2,lX, 3 tI3,F6.2,8X,F6.2,2X, 

0 £Xtl6«.t2Xl) 

IF (T(7c5t .LE. C) CO TO 502 
£02 IF (IPTAP .LE. 01 CO TO SO 


51G 


TMIM=XTFo(,r>, 

TSCCiOTFolCCO. 


WriTE UOlAP.rt 0=520) XTr ,[«AVG(I ),I = 2,Nn .KSYS.KSPD, 
o«AVG 1>'L<6) ,1.'AV'C, (N'L«9),FRF'*,ULPRf C,THIN,T5EC,< lASGM Il,I=l,hLl 
o , (rt A/C t I ) r I = f 2,^.7) ,rul?ATt ,r>AMP,UAVC(NL+lC) , TEMUSP , ( P 1 1 1 , I = I , 


GC TO bC 
52C CACKSr’/.CC lOTAP 
C^0 FILE lOTAP 
10) APriciAPfl 
CO TO 51.i 
C 

C WRITE OUT AFU DATA f^ISSIOP PROFILES 
C 

SO 


3 ) 


S3 


IF (fiOL2 .GT. 49) CALL T1 TLC2 

^MPITC(7,53) XTPjPAHE.fFREMlI) ,FURATE(I) ,ULPRFCII ) , H A V6 1 1 L* 101 

I'OiTpil (2X,F10.5 ,3X,F6.2,T24, 3(1X,F6.2,2X,F6.2,2X,F6,2, 
02X,F6.2, sX) 1 


^C'RITr(f',:03 2 l XTP.yAVCfNLMn) ,WAVC(hL+0) .TENU5D 
2012 FORo;^T [Iy,ril.5,3X,F6.2,2X,r5.3,4X,3(F7.3,3X) ) 
tJ0L2='’riL2* 1 
DC 51 in.fJG 

51 WAVCI 1 1=0.0 
I£T=I STCP+1 

GO TO (52,540,550 , 1ST 

52 IF (YTP .ro. 1(665)1 GO TO 540 
ST0AE(1)=YTP 

XTPAYIP 

YT(' = XTp + ( AEQT 

IF (YTP .OE, T(6651) YTP=T1665). 

CO TO 331 
540 I£70(>=2 

XTP=T (o65) 

WAVG( 'tL + <} ) = STORE(NL+S) 

KAVG('>JL*9) = ST0RE(NL+9) 

CO TO :r ' f 
CPTPY SU“!‘ 

C 

C PRINT FUEL USAGE SUP.PARY 
C 

^19 ' II,TFUSED(I),FREM(n , T ENUSO { T 1 , ULPPF C (1) , 1= 1 , 3 ) 

551 FORMAT ( :iX,’HY07APU HISS TON SUMMARY*,//, 

vl'’X,'F|iCL’,7X,*l DEL *, 9 X,* ENERGY* , 6X , * T ANK * , / , 
vl .'X , • U ,E.i' , 7X , *RCM’ , 9 / , M HP-UR ) * , 5X, *PRESS* , / , 


000612 
1,00614 
L00616 
C0062P 
CDC635 
C0063S 
LDD635 
cnC662 
..0C670 
LC0673 
b00673 
C0Q673 
C0C677 
000702 
i,D07’'4 
CD0707 
60G7(’7 
Cn07C7 
C01003 
CO 1005 
C01D07 
C01D12 
C01C15 
001015 
l01015 

C01C14 

1.0 1 P- 1 7 
C01D24 
L01024 
CD1050 
C01050 
C01C50 
lOIL63 
:0 1C63 
L01071 
C01071 
C01072 
C01075 
LD1106 
LOn IP 
LOU 12 

CO in 3 

con 15 

l.01123 
C01125 
CO 1127 
C01131 
601133 
C01135 
601137 
cmi 37 
CP1137 
401137 
401137 
con 56 
4(51156 
L01156 





C0573 

19t* 

C'’S75 

197* 

C2574 

1964 

CC575 

1994 

cr6C2 

2CC4 

C06G2 

2C14 

CD6C2 

2624 

GC6C3 

;o34 

CC6C4 

2 04 4 

Cr654 

2054 

0frCJ4 

206 * 

CD 6C4 

2274 

DC6D5 

2CC4 

C0607 

2694 

CD61C 

21C4 

0P611 

21 1-' 

CC612 

212v 

CColS 

2134 

CC616 

2144 

CC620 

2154 


2164 

2174 

C0623 

218m 

CC624 

2194 

CP625 

2264 

00626 

2214 

COb27 

2224 

C063C 

2234 

C0671 

2244 

G0632 

2254 

006 33 

2264 

00635 

2274 

C0636 

22£4 

00636 

2294 

CP636 

2364 

GO 66 3 

2314 

CG663 

2324 

C0664 

2334 

C0665 

234v 

00 667 

2 3 54 

G0 6‘'0 

2364 

00671 

2374 

00671 

2364 

C0671 

2394 

00671 

00671 

2 4C4 

24 14 

00671 

24 24 

00 724 

2434 

C0726 

2444 

22 741 

2 4 54 

C0747 

2st4 

CO 7 50 

24 74 

60754 

246* 

C0755 

2494 

007E7 

25C4 

CC76L 

2514 

60 761 

2 32* 


">l2X,'(Li.'^)*,6X,MLb>1>*>l9X,MPSIA>*,//, 

*K' SYCT£«SI2|f5.2,2X,F9,2i4X,F9.2,2X,F9.2,/)) 

TT^-INTrtIH£»6Q. 

WPIT£a£,552> TTPIH.NPLTS ,HPTS 
552 FOiiPAT (• TOTAL APU OPERATIOM TIME = ’,^9.4,* 

#• NUr-TER OF DATA POINTS IVPUT = *,18,/, 

F’ NUMOEP CF DATA POINTS OUTPUT =',I0) 

MOL =5 1 
RE turn 
C 

C LOOIC FOR NON-AVERACED DATA 
C 

600 IF (ISTART ,NE. P) GO TO 640 
TTIPE=ITrPE»T(66S)-TP 
ISTARTrl 

610 TLAST=TF 

DC 6l I l:l ,3 
KSPD( I ) = !APUSD(I > 

611 XP JR( I ):PWf?( I) 

YALT=ALT 

n = rSYS(l ) 
i2=ISV5(2) 

I3 = ISVS( 3) ... 

K5YS=IPTR(I1,I2,IJ) 
lAUl^-M'SC < U 
IA2:nPllsr<2) 

IA3:IAPUSE( 3) 

ISrUISAH 1) 

IST2-ISA M2 > 

IST3=ISAM3) 

IF lUPL .CT. 49J CALL TITLE 
J = TI6A6M.I 

WRITE (0,6 13) TP, VALT,KSyS,J,lSP£0(lAl),TFLRTm,SAT(lSTn,PWR<l), 
9 FPE(‘ U ) ,ISPED(IA2I ,TFLRT(2 »,5ATTIST2» ,PWR (21 .FREP(2) , 

* I5PED1 IA’> , TFLRTJS) ,SAT( I§T2) ,PWR(3 J,FREH(3) 

613 FORMAT (’X,n0.5,lX,r7.D, lX,I2,’/‘, 12 ,1X,3( 13 ,2X,F6.2,2X,A4, 

^ 2X,F6.2,2X,F6.2,2Xn 

MOL^MOL* I 

IF IIOTAP .LE. 0) CO TO 615 

614 TM1L= TPvLf . 

T5CC:Ti’M600. 

WPITE(10TAP,END=62U)TP,(FLRT(IK),1K=1 ,NL1,TFLRT,PUR,KSYS,IAPUSD, 

* CGLOAU.YALT.FREM ,ULPPFC,TMIN,TSEC,(IASCN(IK1,IK51,NU 
«,TR,FUkATE,PAKE,XMACH,TENUSO, (P( I 1,1=1,31 

C WRITE OUT APU DATA MISSION PROFILES 
C 

615 IF INC'L2 .GT. 491 CALL TITLE2 

WRITE! 7,s:i TP,PAMb, (FREHdl.FURATECl.ULPRFC (I) ,TR(1),I=1 ,3) 
WRlTr(8,2C12) TP, XMACH, coload ,TENUSD 
N0L2=''\'L? + I 

WPITE(15,990) ISTART,TTIME 
990 format ( ) 

IF 1T(9991 .EQ. 1,0) GO TO 550 
RETURN 

62C PACKS'' '.C: IQTAP 
Cl.J FILE iOTAP 


C0U56 

C01156 

CQ11S6 

C0U61 

L01171 

cnim 

LC1171 
lC1171 
L01173 
cnil73 
C01173 
U01173 
L01177 
CDlznO 
CQ12C4 
C012U7 
i,ni213 
C01213 
L01214 
C01217 
CD1221 
LD1223 
CCIP25 
L01227 
L01236 
uDl241 
CQ1244 
UO 1 2 4 7 
C01252 
C01255 
001266 
LD1274 

cnisrs 

L013C5 
C013C5 
001351 
L013S1 
CO 13 51 
C01354 
C0136C 
DD1367 
C01367 
Cni367 
C01367 


!67 
C01367 
CO 14 57 
CQ1464 
cC1503 
L01516 
L01521 
CQ153D 
LD1530 
C01533 
U01537 
L0154 1 







-laigj vK.aati:raMJt> 


acCTiawaaa 


0076: 

25 3-» 


C0762 

254« 


C0764 

255# 

640 

CO 765 

256# 

C0770 

257# 

641 

C0772 

256# 

C0773 

259# 


C0774 
OHO f OR 

260# 



IOTAPrICTAP+1 

GO TO 514 

XIM=TP-TLAST 

00 041 1=1, J 

WA VGI4+NL*-! > = XPWRCI > 

WAVG(ML»9 >=YALT 

CC TO 5Jo 

CNO 


£.01544 

CD1547 

C0155I 

C01553 

C01S63 

C01565 

C01S67 

001642 



SFOP.S ll.Ut>AbC /V& ,tl.bSASE/V6 
FOR SnC-'-C2/D‘>/79-16;ll}n8 U**,) 


cn 

I 

kQ 

<jO 


SUr’ftOtJTiJ.E OBASF ENTRY POIMT 001406 

SmUACE USE£){ rOC'Ld) OOIA.-'J; DATA<0> 000254; CLANK COPMONtai 000000 
LOKI’ON BLOCKi,: 


0 00 3 

NUMS 

C200D2 

C'JJA 

CONF 

CC0014 

COS 

RATES 

'•■rJ132 

C0u6 

TIf'ES 

0EijC4 3 

r 3^7 

TA‘7R AY 

oreicL 

r CIO 

TRA J 

OL'iil 3 7 

O'^l 1 

NAHLS 

0ru424 

C3li 

GRAiJ 

TLi.212 

C''13 

LKOS 

0003*46 

0014 

LI'ITRX 

oriiAi 

LOIS 

CUTPUT 

:pc':73 

OOlfi 

COEFF 

7P>.271 

C'>17 

FCOl'iP 

coL'-eo 

COOC 

F Ul'L 

PLCC 17 

1,^21 

SFCC 

or 14 24 

LC2 2 

TtiRST 

0C01C6 


EXTETNAL RCFEKCNCLS JBLOCK* NAHC ) 

C22J FRESUR 
C024 Nvnui 
0025 M021 

n26 KROUl 
CC27 MOU 
L030 M03X 
CQ31 NCPK2a 
C03 2 NCR(<31 


STORAGE ASSICl.HENT (BLOCK , TYPE, RELATIVE LOCATION, NAME) 


COul 

000611 

IDOL 

OPCl 

OOQ61C 

1009L 

OOCl 

00Q637 

llOL 

ccoo 

000143 

'121F 

0000 

000161 

122F 

O'lDO 

00C12B 

1 3F 

POOD 

0032D3 

140F 

CP''D 

000135 

15F 

CGOl 

000337 

159L 

cool 

aC^C2C 

16S0 

orci 

QD0C57 

17L 

cool 

000721 

170L 

CC21 

0D0744 

1C9L 

omi 

003751 

140L 

P.OOl 

000101 

20L 

C''C'i 

0TG171 

•>r9r 

003 3 

000145 

2 ir 

cnoo 

03C207 

21DF 

r i:n 

C C0166 

219F 

Qf’Ol 

030124 

27 L 

nam 

C0C115 

236G 

cooc 

cum EL 

25F 

aool 

oair2c: 

2'OL 

0001 

001072 

2 51L 

cool 

QP1C47 

_fL,uL 

onm 

00135 1 

301L 

fOOl 

C3C302 

3"6C 

C^Dl 

cm ici 

3 ILL 

ooro 

'’30176 

319F 

com 

000372 

346G 

OQOl 

C00413 

3f CG 

uDia 

C0046D 

372G . 

nrco 

G0D1S7 

4"F 

LP'Jl 

C0'4S14 

4CjG 

TT31 

000525 

4C9U 

CDOl 

C01177 

410L 

noDi 

CCllpC 

417L 

unm 

PfHl'’4 

420L 

com 

OC0544 

421 G 

cnji 

oni 1 7J 

44 91 

001.1 

oonm 5 

4 5L 

nnm 

001206 

4'-0L 


COOO 

000141 

•12CF 

0000 

000162 

1209F 

COCO 

00C20C 

13CF 

COCl 

C0D701 

13BL 

COO! 

000055 

16L 

OOCl 

000723 

16QL 

COCl 

OG0042 

176G 

OOCl 

000743 

180L 

roci 

OC'’772 

2C0L 

OCCl 

000773 

2C1L 

CODl 

0C'"4 2 3 

211L 

OOlI 

000464 

21SL 

CODl 

CCCl 32 

22L 

COCl 

rpni55 

24L 

CCOl 

0CP254 

271G 

00 Ll 

C33062 

27 5C 

COCl 

cri076 

I’-eu 

QOuD 

00P174 

3C9F 

COOO 

G'TJ 53 

3EF 

OPCl 

room 7 

359L 

COCl 

ocrso6 

4CCG 

OOul 

001127 

4CCL 

COOP 

DOPPl 1 

415F 

CPCl 

CC"53C 

416C 

’■001 

rnP555 

43CG 

OOCl 

OOP 31C 

4 41. 

COO! 

0006 76 

47 50 

CCol 

P00237 

SOiL 




i»»«>i»np»oM re g«ti nw »TOCTK3^ ismjCZSoiaaJSSiSKSf 


vOOl 


rS!23C 

SCUL 

0"i.l 


CTf’TAC 

32LG 

L''G1 


CODS 54 

orVL 

C'Ol 


CoOSOS 

Cfj9L 

r "^0 

R 

COOL J4 

P.LALK 

n p 


CC0120 

DB2 

u~r? 

R 

C 0 0 Lf 0 V 

FC(> AC 

0020 

R 

roofiii 

rrc' 



oO')o3S 

hP 

D ■’/ 4 


C03457 

lASGL 

L rco 

I 

CO'^IOL 

ICCN 

ucf? 


000220 

INJPi 

C"114 


CQ0212 

•If TR • 

C0C5 


uaoopc 

I START 

C0C.6 


COOOU 

1UM1 

C'lDO 

I 

LOl’lOu 

Ki.O 

C''06 


r 1TD43 

LCMT 

0 014 

1 

COU02 

rvi/fn 

( r*ll 

I 

CD0212 

f POOL 

CCQ6 


COOjU 

(.0L2 

CD21 

1 

001414 

f.SFCS 

core 


C30C07 

S'V. 

L02 3 

R 

LHOCOC 

PRCSUR 

r T21 

R 

POP074 

src 

0313 

R 

CJDOSu 

SVLKu 

cm 4 

R 

CJl ^57 

SUV HAM 

U020 


Dft'>Ul4 

TCIJIISD 

C0C4 


C D0CC6 

TF 

D''17 

R 

OOOCOC 

TVoL 

0U17 

R 

COOOOD 

ULIPLC 

.COLD 

R 

COO 1 Of 

XDC‘1 

u'U 3 


OUIU34 

XPSLKG 


C''0] 


P013j3 

510L 

G" ;i 


00 1C 1 a 

54’G 

CCOl 


PCI 14 4 

621G 

CTll 

R 

000332 

ACTNAH 

Ol’lfc 

D 

OOOOQO 

cr 

0 ■'Ob 


0QC072 

ocr 

DP 12 


OOCl 34 

FLCRAD 

C0S6 


ncDOl E 

FRHO 

04 1C 

I 

0C'’C74 

I 

CP -6 


0J0O4 1 

JCARD 

C’ 10 


ccG nc 

ICTP 

D 115 


OCCD72 

lOTAP 

cns 


03DC6 4 

ISAT 

OPOf. 


0UQC4 n 

ISTAT 

C-Pll 

I 

Q0C254 

IVCH 

or'c 

I 

030114 

L 

0214 

I 

n'.:c5 3 5 

Mt'/ 

0*0 3 

1 

COODOl 

MA 

0*114 

1 

DC1135 

DM 7 

0D04 


ronpc7 

fiOS 

0114 

I 

DD1136 

CSV 

DC 04 


*00301 P 

p 

cri3 

r 

□30003 

PSLKG 

u" 10 

R 

0JD0P5 

SL 

a''i4 

r 

■OCilQl 3 

SVVA H 

Li p ! 4 

I 

201112 

0«VVEH 

oils 


000056 

tflrt 

coot 


000025 

TPCALL 

0017 


Donr,4 7 

DLPRrC 

joU 

t 

001123 

VCCDF 

ani7 

p 

CCC052 

Xf LOh 

mil 


PUC21-2 

XSVLKG 


COCl 


001342 

SUL 

□ nci 


001037 

5E6G 

0001 


0D13D3 

661G 

ones 


OOC13Q 

alt 

0005 


QDP127 

CCLOAD 

on CO 

n 

Q0CC56 

CUM 

CC2Q 

R 

oacocD 

FLCAD 

CD2fl 

R 

C0PQP3 

FIIHUSE 

coil 

1 

Cv2134 

lACTRO 

PC14 


CCC24S 

ICODE 

DOU 

1 

000217 

ILOAC 

COCO 

I 

000113 

IP 

C014 

r 

0CO613 

I5I V 

C0D6 

DCCOOl 

ISTOP 

00C6 


D0C0D7 

IVFLAG 

CO 14 

I 

Dopono 

L'«M 

coco 

I 

P03102 

KODE 

LAME 

CPU 

1 

OGon'pfi 

C021 

I 

coocoo 

AOCF 

0016 

1 

000270 

KPER 

0014 

I 

001137 

HS4V 

CQ22 


0CCIC5 

PAPB 

P015 


0D3D61 

PUR 

COPO 

n 

000006 

SP 

0(U4 

T 

0C1C46 

SVSYS 

00C7 


000000 

T 

P020 


000006 

TFUSCD 

C022 

R 

CQQQ75 

TPRESS 

P017 

F 

000003 

ULPRLC 

anca 

I 

000007 

VTEHP 

POPS 


CDC131 

XPACP 

0006 


0UGO35 

XTPNO 


cool 


OCP725 

512G 

roQi 


001066 

5715 

coo I 


001326 

6'i ZG 

CD13 

R 

000270 

ALTFLW 

0006 


nc"0 21 

CLKO 

C0D6 


CCCQ31 

ECTRAH 

CQ15 


OO'^GOO 

FLRT 

0021 


P0I4 2 1 

FUKATE 

COPO 

I 

CpPl 04 

lAPi; 

coco 

I 

rrnio 7 

TCb" 

coco 

I 

OOPIU 

IP 

C006 


0CPCG6 

1PF.ASE 

CCGD 

I 

0PP103 

ISPO 

CD14 

I 

CC0671 

ISLV 

cooo 

1 

CCPQ75 

J 

C006 


0P0036 

LPhASE 

CD14 

I 

CCC747 

HVHAK 

0C21 

I 

0014 15 

HECNS 

COOO 

I 

nopi PI 

NCCFPE 

C0C6 


ccrcos 

NPLTS 

C022 

I 

PCP074 

MC 

C0X7 

R 

Dcrn44 

PLIM 

PCC5 


OCCDPO 

RA TP 

COOP 

R 

pppn/7 

SPEPO 

CC14 

1 

OCTC35 

SVVFH 

C022 

R 

OCEOTO 

TALT 

C02Z 

R 

CGPD12 

THRUST 

rc2? 


000102 

TR 

C 017 

R 

DQPni4 

ULTALT 

C0C7 


0P175C 

kPT 

coon 

V 

000076 

ypccE 

cono 

fi 

OCP002 

XlOO 


COCl 


cri 364 

512L 

COCl 


rrncGS 

6L 

OOCl 


QC1574 

759U 

COLD 

R 

000111 

ALTSUB 

COLO 

R 

Poncci 

0 

C016 

R 

CCP24 C 

FRANCE 

C0C6 


f^nn r j j 

FREE 

cni7 

R 

OOPCll 

hF 

C0C4 


POPCC 3 

lAFLtO 

0CL6 


n'3PC02 

lENC 

CO 10 


CCPCCC 

INDEX 

CD15 


roncT 1 

IPPLT , 

CO 11 

I 

nfi2i 6 

ISPED 

Q0C4 


oonpcc 

ISYS 

COCO 

1 

C'l'^ lie 

K 

GCu6 


pnnr ii) 

LTYPE 

C014 

I 

nCT771 

HVSYS 

OOC3 

I 

PO'i-'iO 

t.L 

crc6 


noPCP 3 

NCL 

00 v6 


0C0CC4 

N'PTS 

CO 14 

I 

CCl 1«C 

NVCCNF 

C021 

R 

DDl 32C 

PPALT 

0C15 


OOPC67 

SAT 

00Q4 

I 

CO"P 1 3 

ST VL V 

CO 14 

1 

PQl ICl 

SUSYS 

COvO 

P 

00DC5 3 

TEPF 

0P22 

I 

OQPPOS 

TN'OCF 

QGCj6 


nnoGi 1 

TTIPE 

0017 

R 

conn 7 

UlTPFT 

DC21 

R 

001224 

XALT 

COCO 

R 

OOPfOC 

XP 

DOlO 

R 

concri 

xnc 


OP 101 

1« 


00 103 

2* 


cni03 

2* 

PAR 

C0104 

£<* 


C01D4 

2* 


OClOE 

2*s> 


C01C6 

2*» 


tOlPo 

2* 

EMO 

C01C7 

3* 


CD107 

30 

CDLl 

cone 

3* 


com 

3> 


cnii 2 

3v 


L0113 

3w 


LClli 

J-‘ 


CP 11 3 

3w 


CP 113 

3* 


L'Dim 

34* 


CO 1 15 

3-X 


cent 

2v 


02 LU 

3 f 



SObRO’JTINf DBASE 

IiiCLunc PAR, LIST 

PAR Am*; fCR HNA=C9 ,NR = 3*«‘HtJA +7 ,MNL= 4 £ , N6 = HNL’+ 1 3 , MH V = 9 , M SV = 9 ,MSU V=9 
* ,Ml/CC.LF:ia 

PAkAPC ter MN5PDS=4 .MNCQNS =5 ,KMOCF :10, HNTE0N=5 ,MTNOCF =10 
CPnt’Cf /NUMS/Nt ,Nft 

IRCLUOL CLLlfLIST 

PPCC 

CCllMOl! /C0NF/ISVS<3J , TAPUSD t3 ) ,TP ,NOS ,P C 31 ,STVLV 

CQn^OM*'/RJTCS/RATE <MRA I ,H'* I PN A 1 , DEFIMNA » , CGLO AD, ALT , XKACH 

COl'.KOM /TIMES/ 1ST ART , I ST 0 P , It HD, HCL , NP T S , NPUT S 
« , If HASr ,I vrLAC,M0L2.T^I"E ,1UNIT,FPEE (2) ,FPNO (4) 

« ,CL*'f (4 ) , TPCALL(4),ECTRAIJ13 1,LTVPL,XTPN0,LPHASE,MW 
« , 1ST '.T , ILARD.LUIJIT 

CO.IKOU /TAPPAY/ n IQTD) ,«PTir R» 

COPt'O’Y /IPAJ/ IPOEXlRPl (ICTP . , 

COIlKvH/HA PL S/NAMF ( S ,M‘JL I , lA CTNO {MLL ) .NMOOE t 3) , ISPEO < , I LO AD < PN A 1 , 

f . IVniUHlL 1 iArTt)AHtHtJA,2i 


oooono 

LOODOP 
CO DC 00 

cncooc 

CCDGOC 

COPCOO 

Conoco 

lOQOOP 

COOPOO 

LOCOCC 

LOOOQO 

LDOOOO 

cncoo'’ 

LDCOCG 

C'JOCOP 

LiOOOC'’ 

VOODOO 

LDDOOn 

CODCOO 

COODCD 

CODOOD 



i| m il I ) • 




— nrj»rrrm|Ti wniiiimi 



3* 

4* 

D0117 

4 V 

Cri2D 


C0121 

4'» 

cri 2 i 

4* 

CP 122 

4 » 

C''I22 

4'» 

n 122 

<4=> 

CP122 

4-> 

C"122 

4 F 

on 12 2 


LC123 

4>> 

CG 123 

4* 

00124 

C2124 

50 

-5« 

cn 12S 

5* 

■'Pl'’D 

E-> 

L012G 

5>F 

C012o 

5<* 

CP12G 

S-F 

LC 127 

S'* 

0013C 

s^' 

LPITC 

E* 

CPIGL 

5« 

cniii 

5>* 

CP132 

S* 

L0132 

S-F 

CC132 

5* 

COl 33 

S'* 

CD133 

b» 

CP134 

SP 

CP134 

S'* 

LP13S 

t* 

Cni43 

7* 

C014S 

6* 

Cf’147 

9* 

cpi:3 

IDv 

00 1S4 

11*^ 

PPISG 

12v 

C0156 

13* 

crisG 

14* 

C0156 

I'y 

00156 

16v 

COl 57 

17'* 

CP161 

lb* 

CP161 

19* 

cni6l 

2C'* 

CC162 

21 V 


22 V 

CC162 

22 > 

CO 20 7 

24-* 

0C21O 

2E-* 

CQ211 

26* 

LP212 

27* 

C021D 

2f'* 

CCI'IC 

24 > 


E^C 

CLL2 


CtwO 

CPL3 


CNO 


inCLunr cpls.list 

PRCC 

COHKOf' /C.RflD/FGfiAD <HWL ,2{ ,FLGR AO < PNL > 

COHKOJ^ /LKGS/PSLKGIHNL> .SVLKGtKNL >,KPSLKS(MKL) ,XSVLKG<MNLJ 
#,ALTfL«.{NrL) 

CO>ll‘OM /L''«T«X/LPH(3,liNLJ ,IPTR(3,2,3l,IC0 0e(3 ,HNL) , I ASGN t H NH , 
« ^IVIP'JL I ,ISIV(HNL) ,ISWV« MfOLl , 

* HVRAM(2f ms V) ,KVSVS (MHV ) .PVVCHI MKV J , 

* SVRAM(2,PSVI , SVVrHtMSV), SVSYSrHSV), 

* GWVNAtK 2,tlS«’V) ,SUSySi^'SWV J »SUVVEH(PSWV) 

“l VCCWr<«i/COf/F) ,^^<V,WSV.NSMV,^’VCO^^F 

IKTCOnf VCCUFi ^VVEH, SWVVEH,5V5YS t SWSYS 

INCLuni: CCL3,LIST 
PROC 

) ,PWR<3I ,ISATJ3J ,SAT (2) 

f r L I • I 0 T AP 

COi^PON /COCFF/ CF<in,2,2,2J , 

: ,NPER CRANGEf2,2,2.3) 

DCHJRLC PwrCISION cr 

CO'irO.S' /PCCMP/ULTPLC(3J ,l'LPSLC<3l ,T VOL ( 3 ) , HE < 3 ) , 
ULTALTI3>,ULT0FT(3,7),PLIM(3» 

O tULPRrC < 3 ) ,)( FLOW ( 3. 2 J 

COMMON /FUEL/ “ 

COt'HCV /LFCC/ 

* 

INTEGCP THOCF 

Bata * *' 

DATA NPOOr/ ’PR’ , *JPR* , 'OFF* / 

DATA $L/*IL V,SP/'SPV,f.’PEfi/2/ 

Dl“EHriOI. WTLl’P(361 
INTEGCl VTEIMP 
OIrFf.''.]or TEMPI 3 ) fOUMI 14 ) 

NAhFL t:T/Cr'-?/N0CF 


Kocf?lNsfp’;KwSjs:!i;ircl5i!ED^ 


WRITE OUT OATA EASE 
WRI.TEIft, 13) 


13 
C READ 
C 


INFORMATION ECHO 

FORMAT 'IlHl ,21X, DATA BASE INFORMATION «***•, //I 

IN HYiJ LCAC DATA 


o^PFAn.sas.ENpzisn^iNAMF.Ujn 

15%0RPAT 
GO TO 6 

16 NL=I 

17 HEAD! G, i:r,DND:2C>0UH 
12U FOH>-AT ( 1 6, A2» 

wriic(c,i:n dum 


3) , 


LDCOCO 

EDGCCO 

cocccc 

COCOOQ 

EDOnOO 

LOCOCO 

COQDOn 

CO'^OOC 

LOOCDO 

EDCCCB 

coccon 
LnGoor! 
lODOOO 
CO DODD 
LOCO CO 
LOCCCD 

cncrcT 

LT’Cccn 

LOroOD 

LODCCO 

cf’pccn 

LO2OC0 

conopr 

CDCDOf’ 

LO'^oor 

COCGOC 

COCDOC 

CnCODG 

COOQCO 

croc 00 
Looocn 
COPCOO 
DPCDCr 
lOPODO 
cOPODD 

cococo 

COPPPC 

lOCCDO 

LOOCDO 

LOGPOO 

Loacon 

i.occao 

LOCOOO 

COOPQO 

caooon 

C00C05 

COCOO': 

CDCCQS 

cocoes 

Lf’CCD? 

CLCCCS 

lDPDE? 

C/3CC53 

enposs 

COP,C5 7 
C0rP67 
L0DC67 


3ES 


•f] G3“ 

o s 

O 7> 
70 r- 

o :s 
c: 5 
> o 

p m 






20221 

304 

121 

L0222 

3)4 


CC22- 

327 

C 

00 222 

334 

C READ 

C0222 
C0 22J 

344 

C 

314 

2t 

C0223 

264 

21 

CQ234 

374 


C0235 

30 

22 

1 

CD236 

3S* 

CC24C 

4C!' 

23 1 

CFj24 3 

4 14 


CC246 

424 


CO 24 6 

42« 

C 

Cn2'lt 

444 

C READ 

LP246 

45* 

C 

CF247 

464 

24 1 

crpES 

474 

2E 1 

CC2EC 

4C4 


CC26C 

4 9w 


00262 

504 


0C264 

514 


C0266 

524 

1 

L0267 

534 

1 

CC267 

£44 

4 

rozoi 

554 

35 1 

co;t'2 

56* 


CO 504 

574 

1 

cr312 

5 64 

40 

1 

CC313 

SS4 

EC314 

6Cv 

44 1 

Lf’ 316 

614 

122 1 

CO 31 7 

624 

45 j 

C0222 

634 

C0325 

&44 

1 

CO 32 5 

6 54 

C 

00 325 

6 64 

C REAP 

00325 

67v 

C 

C032t. 

664 

SO 1 

00327 

694 

159 1 

0032o 

704 

1209. 1 

C0337 

714 

219 ( 

C034C 

7Z4 

209 1 

C0341 

734 

1 

C0342 

744 


00 344 

7 54 

1 

C0JS2 

76v 

3C9 1 

C0353 

77v 

1 

C0 354 

76 > 


CP350 

7 94 

1 

co;c4 

o O 

319 1 

EP:t4 

614 

C 

CC.,64 

C 24 

C ASSK 

co;64 

8 34 

C WILL 

cd:< 4 

C44 

C 

cnios 

s54 

359 , 

C0566 

b64 

( 


FOIfPAT(lX,l JA6,A2» 
CO TC 17 


RCAri<n,21,CMD = 22) I, (ACTNAHIl, Jl ,J=l,2>,lL0ADn> 
rOWHAff I2,?A6,5X,I5) 

CO TO ;c 

MA = I 

WriTE It. 122) 

HEAD I 12r,EN0=24)0UM 
U'PITCIo.lEUOUM 
GC TO 23 


fOnllAT < A: , A3 *12 , 19X , I 2) 
ir <X"''EC .EC.XPJ H0D£r=l 
IF TXMjct. ,eq. D) M.0DE=2 
IF ISPEEC .EO. XlOO) ISPOn 
IF (SPEFC .EC. XIlOl ISP0=2 
EfiAMbCCFOEE ,ISPD,KN0, 3)=\’rCFPC 


IF (NftCfPE .EE. 3) CO TO ?Q 

read tC,9C) ( CF( J>KN'0,«0DE, TSPDI .NOCFPE ) 
FOR^iAT (am.C) 

CO TO 24 


PrArCj.l’OjENOrSOOUH 
WRITE ((.,1?1 )DUM 
GO TO 40 


CONTIflUE 


IDV Ki-ai' i , i ju, V , Lr.u-4 

IZO'i Fn,{^‘AT ln,li,I2,Fll.n,I3) 

219 FOE^iHi (OX,Fll.D,I3) 

FORMAT {215, Fll. 0,13) 

K=6 

IF <IDUK .LT. 6) K = IDl)K 
READ {:0,3S9) ( OUM t J ) , J=1 ,K ) 
FPR.MAT (ZrX tbFlD.O) 

K: IDUf 

IF {K .LE. 6) 00 TO 359 
REAP (r.,il‘>) COUMl J1 , J = 7, K) 


CO TO f21‘:,211,211,2ll ) , J 


o o 

'o S 

O 2 

O > 


<o 

p- Q 

p m 


E0DD77 
1.0CO77 
C0CC77 
CD0077 
1,00077 
LODlOl 
CCP122 
LOCI 22 
EPD124 
L00125 

cncizi 

u0ni43 
C00153 
CCC1S3 
EOC153 
cool 5-» 
L0P155 
LCC1S6 
cnoi&A 
E00172 
E0C2G0 
E00205 
L0021? 
I.DC224 
t>39?24 
1.0C265 
000265 
L00271 
CDC30f> 
LDC306 
EOC310 
C00315 

torsis 
L0032'; 
CD0335 
C0C535 
COC335 
EDOi35 
CDC237 
cnr337 
CDC351 
LOC551 
lDC351 
L0r351 
Cn0353 
1.00361 
C00575 
L00375 
CQC377 
L0C4C2 
E0C4 17 
L0U4 17 
1.CC4 17 
LCD417 
L004 17 
LOOM 17 
1,00421 



<s7* 

9C * 
91>» 
92« 
97* 
yiiw 
9C* 
St* 
97* 
96* 
9 9* 
1L.C* 
ICl* 
1^?* 
K 7* 
1L9>. 
lOE* 
lot* 

1 <77* 
16i'* 
1 1.9* 

UC* 
111* 
1 1?* 
11 J* 

119* 

lib* 

116* 

1 1 7* 

lie* 

2 19* 

izc* 

lai* 

12?* 

12 7* 
12** 
12E* 
126* 
127* 
12f * 
129* 
13C* 
131* 
132* 
1 31 * 
139* 
13E > 

1 jt* 
137* 
13b* 
139* 
19C * 
HI* 
192* 
193* 


211 XALT< I6PC,IEliN,lAPUI=XDUH 
f,nCF (lEP.i ,I£CM,I tPUl =I0UH 
00 21-> Izl.IDUM 

2 12 src < I S.'C, ICON , I , 1 APUl^OUM ( I I 
GO TO 159 
210 CO 2ir J=l,3 

XALT(:SPO,iroN,JJ=XOJM 
7J0CF< rsoo.icch, J » = IDUM 
DO 217 1 = 1, Tout'. 

217 SFCClE'O.TEONil.JirOUKn) 

21b COfv'Tl>.<,E 
GO TO 169 
C 

C FIND PFCS'lJRE FOR CURVES 
C 

4C9 roMiEur 

00 6c<' in.i'.uspps 

no 707 Jil.MNCCFjS 

IF (NOCF ( : , J, 1 ) .GT. 0) CO TO 60? 

NECbSt : i=j-i 
GO TO 759 
609 DO 617 (< = 1,3 
ALT50*>=XALT 

61C PFfALT i:,o,ki=presurialtsub» 

709 cot Tl in'" 

t.Ewf;S( ii="f;coNS 

759 IF (Nocra.l.ll ,GT, 0) CO TO 8C9 
NEPDSri-1 
CO TO irC9 
6C9 C0-.TI‘MF 

NSt’nS-ri't.SPDS 
1CC9 CCHTI'Jur 

W»’! TC <6, i 22 7 

ICU READIE, l;.'’,CNO:UO)DUM 
1.RITL (6, 121 lOUM 
GO TO IDO 
C 

C READ It; APU DATA 
C 

110 CO’tTIK'JE 

RCAO( 9, UriXFLOW .ULTPLC ,ULPRLC ,T VOL ,HE >FLOAD, 
* FUNUSE.PLIH 

DO ii* 1=1, 3 
•112 FneMm=FLOAD(I) 

^ 13C FORMAT (7»3SX,3F10.a,/M 

C READ lU ULLAGC TEMPS FOR DIFFERENT MISSION PHASES 
C 

13S l?FAD<'^,lt)r,CND = 189( IM. IP, TEMP 

ir: rmpAi (Pbx.iz.TA.sx.zric .oi 

CO TC t UP, 17CI , I* 

3611 00 16' 1=1,3 

16E ultal T ( 1 1 =fcnp(n 

GO TO IR. 

17l do 17 : 1=1,3 

175 ULrOFrn,IF) = TCMP(I) 

JPD CO TO 133 






.«Si£:netxt4iiuL 


R' 


C9 


rn525 

14 4 4 

2rS27 

1454 

CC532 

1 4 t* 

20535 

1474 

C>T536 

• 14T4 

resit 

1494 

C0536 

1024 

LOS-'o 

1514 

CPC37 

152 > 

L55C2 

1 53 > 

CC251 

1 J4-.. 

rrS32 

1554 

C3553 

1 5t>4 

Cr564 

15/4 

costs 

15(4 

r0566 

1 j94 

C25£6 

16E4 

( C577 

16 1 4 

crtC'C 

I6l4 

CC601 

1 o24 

LP6C3 

1644 

cr oft 

1654 

COtll 

1664 

cntic 

lo7« 

CP t u 

1 6tv 

C"t!2 

lo‘/4 

CP612 

17C^ 

0G612 

1714 

CPC17 

1724 

CD o2D 

1734 

LP623 

174m 

00624 

175v 

crc25 

1764 

LC626 

1774 

CC627 

1724 

GC631 

17 94 

00632 

ldC4 

CC633 

l6l4 

CP635 

1C24 

crc,4D 

1 c 3v 

CC64 3 

1 o4m 

C>'643 

1554 

0064 3 

1664 

CD643 

1674 

CC644 

1S64 

C0644 

1394 

or 644 

19C4 

(0644 

191v 

C065? 

192 4 

CNti53 

19 3* 

LCuE4 

19 4* 

C065E 

19 5V 

C0657 

1 V £ 4 

CD 66 5 

1V7m 

rr6( 6 

193* 

cn67f 

199v 

LG676 

2lC X 


U-ITL (6, 122i 

19t RCAO< ',Ur,CN0 = 230)DUM 

U>?ITC{ojl21 »OUH 
GO 10 190 
2D!? CONTINUE 
C 

C kEAO If,' U^LVE DATA 
C 

2 01 PrAo^-^ric,CfvD=2 50>i , (hvnam ( j, i j , o=i, 2) ,mvsys ci> ,hvveh(ii 
Eic foknat'uj.^ao.jisi 

251 RE AC (5, 2 ID, END = 3 DO )I , I SVN AH ( J , I) , J= 1 , 2 ) , S VS YS ( 1 1 , 

GO TO 251 

3C« f.svn 

3G1 RE ADt 5 ,2 in, END = 308 >T , « SWVriAiH J J , J=1 ,2 ) ,Sl.SYS (I I , 

•» SKVVEH(I) 

GO TO ;ci 
3Cb r.'Sh’v=i 

IvRlTL (o, 122 ) 

312 READ (5,12D,END=H0C)DUH 
WRITE (f , 121) OUH 
GO TO 310 
4C': ccr Ti^'UE 
C 

C FEAD IN VALVE CONFIGURATION DATA 
C 

NIC REAR t 5,N ] 5 ,END = NN9 ) I,VTFHP 
N15 FORHAT U2, IX, 3612) 

DO N2'' J=l,36 
K = VTC«I>(J) ♦ 1 
GO TO <N»'C,‘U7,N17),K 
N17 L=J-1 

FLDtL,l,VCONF(I ) )=K-2 
N20 COMIflUE 
GO TO >.10 

449 HVCCI,F:l 
WRITE (6, 122) 

450 KFAD(5,KC,END = 5Q0) DUH 
WRITE «6,121)DUM 

CO TO 450 
C 

C READ Id APU EXHAUST THRUST CURVES 
C 

500 RCAn( 5 , 209 ,END= 510 )IEQN,IOUH, TALT (I E ON ) , TNOCF I IE ON » 

C FIND ANCIENT PRESSURE FOP CURVE 
C 

ALTSUP=TALT( lECN) 

TPilESS ( ILCNI=PRCSUP{ ALTSUP) 

K:TK02F < K..'j) 

IF nM0rF(IECN).LT.6> R=TNOCF(IE0N) 

RF AGl ^ :C9 I (THRUST 1 ICON, J) ,J = 1 ,K ) 

KsTt.Crr UFON) 

IF (K .LL, 6) CO TO 50t 

RFAK S.’19) (THRUST ( IECN,J), J=7,KI 

GO TO V' , 


SVVEH{ I ) 


■Tit g 

■■a S 

o % 
o B 

^ r- 
p pii 


C00744 
L00751 
u00761 
E00771 
COC773 
CDC773 
LDQ773 
2CC773 
200773 
COlOlf 
C01G2C 
L0ia2Q 
CC1U22 
lDIDNS 
L01C147 
201CE 1 
UOIOSI 
CG1274 
L0I076 
C01077 
LOllO^ 
LOUIE 
LD1125 
LD1127 
ED1127 
201127 
001127 
Unil27 
L01144 
L01144 
CPl 1 44 
001147 
LOl 160 
LOU 63 
toil 75 

coil 7E 

001177 
C0120Q 
L012C6 
201216 
CO 1226 
oni226 
l01226 
LG1226 
C0123C 
C0123O 
L01230 
L01230 
L01243 
201245 
lO I „ 5 1 
001253 
L01271 

cm 1C6 

201311 

LOlTlu 

201331 





"R5CT1**WW 


CP677 

2C1>!< 

5I£, 

^iTC = ICv^ 

L0133T 

L c 7 r 0 

2C2-> 


I.RITC (^,102» 

(.01334 

C0732 

2J3« 

SU 

RCADl '■,12P,Ct.'0=512)DU« 

CO 1342 

(jC TZZ 

2u*i« 


URITL(6, 121)DUM 

CO 1352 

C0710 • 

20E# 


CO TO 511 

C01362 

C0711 

2Ct* 

512 

RETURN 

Cni364 

CO 7 12 
ENO rof? 

2J7v 


EM2 

CO 14 22 





W ‘ 


<^> 1 ^ •«,£. 


irCJR, S, H.P(,'£,''>'JK»I..PP£SLP 

FCP JcC3-0Z/36/Jv-]t;l l;35 n,) 

FUMCTIO(< Pf?ESl,R _ ENTRY POINT CDOQ3‘* 

STOHACE USED: CODEtlJ OCODMDr TATAlOl 0QQ033; PLANK COPHONC2> CDOOOO 

EXTEPNAL HEFERENCLS <BL0Ch, HAVE) 

CQC3 TERR2S 


STORAGE assignment tBLOCK, TYPE, RELATIVE LOCATION, NAME) 

n rS3i;5fe iMS P 000001 ACOEF OODO R 000015 ALTKM 

GOdCl R CQ0C20 PPATM 0^00 R CCOOOC PRCSUR DOCD R 0DD016 TERM 


COCO I 0CG017 I 


CODD 00CC25 IKwPi 


0 

01 


cnioi 

1 •> 


FUNCTICN PRFSurnALT) 

I’o in^ 

2« 


DIHCNSICN AC0CF(12) 

CD 103 

3<‘ 

C 

THESE APE COEFFICIENTS F 

EP103 

4A 

C 

PRESSURE AS A FUNCTION 0 

CO 103 

SP 

C 

ATMOSPHERE SUPPLEMENT PA 

C0IP3 

6* 

C 

CO 104 

7-x 


DATA ACOEF / 0.25977720 E-19, - 

CO 104 

s«. 


X 0.67075907 E“14, - 

10104 

9R- 


X 0. 19653‘'97 C-C9 , - 

CP 104 

IC* 


X 0.53441596 L-C6, - 

X 0,21215722 E-03, ~ 

CO 104 

11* 


C^1C4 

12* 


X 0.35333673 E-Cl, 

CP 104 

13* 

C 


CP104 

l4-> 

C 

CONVERT ALTITUOC TO MCTPIC 

CD1C4 

IS* 

C 

crioc 

It* 


ALTKM : ALT « D.304P036E-3 

CO 106 

17* 

C 

CALCULATE ATMOSPHERIC PR 

C 0 1 C 6 

it* 

C 

ALTITUDE 

cone 

n* 

C 

C0107 

EC* 


TERN = O.C 

GG1C7 

21* 

c 


(.0110 

C2* 


DO 70 I : 1,12 

CO 11 3 

23* 


TERN r ALTKM * TERM ♦ ACOEF(I) 

00114 

24* 


70 CONTINUE 

cone 

OS* 


PRATHT:.n/(T£RM**4 ) 

erne 

2 tv 

c 


CO 1 1 6 

27 - 

c 

CONVERT PRESSURE FROM ATMOS 

Cn 1 u 

^ ) * 

C 

(0117 

26* 


PRESUP = PfiATH * 14.6*6 

LC120 

30* 


RETURN 

com 

END FOR 

31* 


END 


C. 74747882 

I, etc 


£-16, 
E-1 1, 
E-07, 
£-D4 
E-03, 
J 



cnoooo 

LCQCDO 

COOOOQ 

COCCDC 

LOOOCO 

LOCOOO 

COOCOO 

COOOCTl 

Loence 

Lcoonn 

LnCDQO 

LOOOCO 

COCCQO 

COCOCO 

cocoon 

Lrcccr> 

COCOCP 

COCCCP 

encoeo 

LC0002 
C0PC02 
E00C06 
L000C6 
LDQD12 
COCCI? 
L00ri2 
C00012 
LOCCl? 
tOCCl 7 
L0CC2 I 
000037 







2 F 0 R,S M. T A( K/V 6 , U-TtWK/U 6 
FOR SC£Z- 0 <;/ 06 / 7 V-lC : 11:39 13 ,) 

SURkOUTIKE TAJ K . ENTRY POINT 000046 

STOf.A&E USEu: CODE t H QOOOOo; FATACOJ 0 CDD 13 ’; BLANK C 0 PH 0 NI 2 I OODOOC 

FXTCPNAL REFERENCES TBLOCK , NAME > 

0'’03 KERR 25 
E 004 NERR 32 

STORAGE ASSIGNMENT (BLOCK, TYPE, RELATIVE LOCATION, NAME) 

cool CGOOEl ICL OTOl 000032 20 L 0000 000007 INJPI COOO R 000000 RHE 

0000 R CQQDDl TP GOOD R 000003 VLIL 


Dooo R oononz rhoh 


r 

C 3 


CCICI 


CO 101 

2« 

CO 101 

3>» 

cniri 

4-/ 

crioi 

= i 

CO 101 

69 

CDir.i 

7» 

CP lin 

e« 

CO 101 

99 

LOlOl 

1C9 

cnici 

119 

cn ici 

129 

ooiri 

13* 

roici 

14* 

coi?: 

IE* 

COKE 

It* 

OOIC j 

17v 

uc iPb 

1C9 

CClCfc 

19* 

CP107 

2 09 

cm 10 

21* 

CO no 

22* 

00111 

2 3* 

C0112 

24* 

cm 2 

26* 

cmi3 

2( * 

CC114 

27* 

com 

E( 0 F OR 

?L* 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SU 3 K 0 UTINE 7 ANK(T,F,V,P,HF,IFLAGJ 

TroLLAGE TEHI , F 
TR^ULLAGE TEMP, R 
F =hY 0 PA 7 IHL, LBM 
VrTAMK VO LOME, FT *93 
PrULLAGE PRESSURE, PSIA. 

HE=tlfLIUll, Li 1 ' 

RPErSPECI. IC CAS CONSTANT FOR HELIUM : 
VALUE AT P: 1 S 0 PSIA E T= 7 C 
IFLAG =1 -- CO>'-PIJTE HELIUM 
1 FLAC =2 -- COMPUTE PRESSURE 


DATA PHE/ 2 , 6990 / 

CONVEFT TF/P TO RANKIN 
TR:T+4j9.69 

COMPUTE HYGRA’INE DENSITY 
RHOH= 7 ?, 4£4 - 0 ,Q 315 *TR 


C COMPUTE ULLACE VOLUME 
VUL=V-F/RHCK 
GO TO ( 10 , 20 ) .IFLAG 
C COMPUTE H'^LIUM MASS 
10 HC = (P>'VUL)/ (RHE<<TR) 

RTTUir: 

C COMPUTE ullage press 
20 p: (Ilf ,iTR^PHE) /VUL 

RETUR" 

END 


2.6990 

F 


1,00000 

gOOCOO 

cocoon 

CDCOOO 

corooo 

LOOCQO 

cooono 

COfGOO 

LOQOOO 

coooon 

coroDO 

OOODOP 

coccoo 
DO DO on 

COCOQO 

Lo^roo 
LOrODQ 
COOOD? 
CO no 02 
C 0 C 0 C 5 
COOOll 
LOCOl 1 
Lf '0021 
U 0 C 026 
L 0 C 026 
lCQ 0^2 
g 00036 
C 000 S 5 



\f i 






:rOK,S H,TCCHP/Vt,H.TC0MP/V6 
FOft 5 d£3-CZ/C6/79-18;U:'<M (1,) 


SUEftOUTIt.E TCCMP 


ENTRY POINT 000213 


o 

Co 


STORAGE 

USCG: CODEdl 

C CMHON 

LL0CK5 ; 


C'-33 


NUM5 

OOOOC2 

EFC4 


OUTPUT 

0CL073 

0 005 


CCEFF 

CCG271 

CCC6 


PCOKP 

000360. 

CCJ7 


FUEL 

neon 17 

C310 


SFCL 

CC1424 

coil 


TItRGT 

jOu 1 L‘6 

EXTERNAL 

RFf ERE 

fees (! 

C312 


XPRX 


0 013 


NERR3S 


ST ORAGE 

ASSIGNMENT (1 

EOCl 


F0CJ15 

122G 

CMGl 


OOOCbl 

71bL 

coon 


coocn 

OP 

C107 


Lcoon 

OREM 

C30D 


C07036 

TNJPT 

GOOD 

I 

030335 

J 

rnio 


LC141E 

I.FI.NS 

con 

I 

cone 74 

NTC 

0004 


Dt.''’067 

SA T 

0707 


Co3G?6 

TFUSED 

C70D 

R 

C73C3L 

TR 1 

0"'06 


000314 

ULTALT 

COlOl 


Iv 


001C3 


2’)- 


C01D3 


2^ 

PAR 

OC 104 


2« 


CO 104 


2v 

* 

ccirs 


r* 


cnc6 


29 


CD 106 


2» 

END 

C01C7 


3v 

CBL3 

C01C7 


3v 

rent 


3”> 


cone 


■> A 

i/ 

coni 


3» 



(BLOCK, NAME! 


(BLOCK, TYPE, RELATIVE LOCATION, NAHEI 


0001 

0301 

GOOD 

0007 

0 :C!A 

0~.'JC 

o:o 3 

0311 

0010 

0011 

o^oo 

0'>06 


OOOC33 
000065 
QOOOIO 
00 QQC 3 
000372 
noon 7 
ocncco 

000135 
000074 
000012 
OOCOO 1 
0JC017 


133C 

719L 

DELTP 

FU'JUSE 

lOTAP 

K 

f.L 

PA'IG 

SEC 

THRUST 

TR2 

ULTOFT 


0001 

0001 

QE05 

0010 

0004 

noao 

0010 
0006 
con 

0011 
0306 
C0C6 


000106 
C00170 
000240 
001421 
CCCC7I 
1 000002 
00C300 
00C044 
DQ0300 
I CCC005 
DC0CC6 
000000 


1536 

739L 

ERANGE 

FUR ATE 

IPPLT 

K VI 

HOCr 

PLIH 

TALT 

TNOCF 

TVOL 

ULTPLC 


cool 

cool 

0007 

rnc6 

C0Q4 

cooo 

roo5 

coio 

C007 

Foil 

C306 

CQIO 


00^135 

000171 

oorooo 

00^011 

nrcD 64 

ocroo3 

000270 

001320 

000014 

OCFD 75 

DD''a 47 

0C1224 


162F 

749L 

FLOAO 

PE 

ISAT 

KV2 

NPEP 

PRALT 

TCNLSO 

TPRFSS 

ULP^FC 

XALT 


SUOROUTIfiE TCOHP 
INCLUDE PAR, LIST 
PROC 

PAPAKETEP MHA:29 .NfirS^MNA ->7 ,MNL = 4 6 , NC SHNL* 1 3 , HKV s9 , P SV =9 ,MSUV=9 
.PVCONFrlO 

p/'RAnrTEI< f‘N5PD5:4,MMEQNS:5,HNDCF:10,HNTEQN = S,HTNOCF-10 
Cnut'ON/NUHS/NL ,NA 

INCLUOE CELT, LIST 
PPOC 

COMMON /0U7PUT/FLRT ( MML 1 , TFLRT ( 5) ,PWR (3I,ISAT(3),5AT(2J 


COCl 
00 C5 
00£i4 
OOLO 
C''LO 
00l3 
00 10 
C0C4 
D0L4 

con 

0DC6 

00 i >6 


ODOC27 

OOOOOD 

COOOOD 

nCDC04 

PO0C06 

concDi 

001414 

C"'0C61 

0QF'CS6 

C0niD2 

00OC03 

0 Q 0 CS 2 


7C8L 

CF 

FLRT 

I 

n 

NA 

NSPCS 

PWR 

TFLRT 

TR 

ULPRLC 

XFLCR 


, irPl T, lOTAP 
COM“0'i /COEFF 


i CM 10,7 ,2, ?) , 


CDOOOO 
uOCOOO 
LOCO DC 
COCOOC 
COOGOM 

coocrr 

i-OOOOO 

coGOor 

LODOOP 

COOGOO 

coccrn 

cocoon 

..ococn 





># 


CO 11 1 

roi 1 1 
i;o 1 1 2 
cnii: 
£.0112 
ecus 
crim 
ecus 
cr 1 1: 
CCIU 
1.C116 
LO U 6 
crii7 
CC117 


C01<4& 


2'' 

i* 

3f 

3* 

2» 

3« 

3*' 

3* 

3w 

S* 

3# 

3* 

3* 


2<(H 


£NO 


* E RAKGCt 2»2 f 2 , 3> 

« ,NOLP 

ooupLf p^rcisroN cf 

COMMON /PCOMP/ULTPLCt3l ,OLPl?LC(3> ,T VO L ( 3 ) , HE ( 3 ) , 

* ULTALTC3) ,ULTOFT(3,7),PLIH( 3) 

=> ,ULPRFC(3| ,xrL0Wt3;2) 

COMMON /FUEL/ FL CAD I 3 1 , FU "U ST ( 3 I , TFUS EO ( 3 > , FREH ( 3 > , TENUSD t 3 » 
COMMO’I /Srec/ N'OCF <“NSPDS (HNEOMS t 2> ,SFC( HMSPDS rMNFQNS,HNOCF , 3), 

<- XALT ('■•>.Cor;S ,MNCONq,21 , P P AL T ( M NS P CS , PN E CN S , 3 1 ,NSPDS, 

* NrOf.S<M(JSPDS f,FUI?ATC 13 i 

COlll'Otl/THFST/ TALT (MNTCONl , T NOC F ( H NT E CN » , THRUST (HNTEON ,HTN0CF > 

*, (ITC, TPPt SS (HN'TCCM 1 t Tt? 1 3 1 ,PAMB 
INTCCCk TMOCF 



c''irc 



NAJim^ST/DCF TRl ,TR2 tTRtK VI ,KV2»PAMR 


com 

5 * 


DO SCO m,3 


00121 

6* 

c 



Ef’l 21 

7«‘ 

C COtPUTE A"U AVERAGE EXHAUST THRUST 


CO 1 ? 1 


C 



CCI 21 


C FIND f'UHVZS TO INTERPOLATE BETWEEN 


GO 12>t 

ic>> 


J:\TC-1 


r n 1 T C, 

m 


IF (PAMG .LT. TPRESSUn PO TO 708 


rni 27 

1 2* 


KV 1 = 1 


erne 

13* 


KV J=2 


coin 

IR* 


GO TC 719 


Eri22 

15* 

7C6 

DC 710 11=1, J 


mis 

ie> 


IF (TPrrsSJIll.GE.PAHC .AMO. PAM8 .GE. TPRESSTIl+lll 

Ol 

00125 

1 7* 


V CO TO 715 

* 

CCU37 

it* 

710 

CCNTIHUE 

0 

cniRi 

19* 


K V 1 = J 

(£1 

00 m 2 

2C* 


KV2 = J'-l 


L0143 

21* 


CO TO 719 


coi'm 

22* 

715 

KVl = n 


Cni45 

23* 


KV2=Il *1 


L’omt 

25* 

719 

CC147 

26* 


CP151 

27* 


CO 152 

28* 


roi55 

29* 

720 

r.0157 

3C/ 


Cf’16D 

31* 


CD16I 

32* 


C0164 

33* 

721 

00164 

34* 

C 1 

r 01 G 6 

3Sv 

CP167 

36* 


CQ17C 

37* 


com 

38* 

735 

ni72 

39 * 

74 9 

00 i72 

4L* 

SDC 

EG175 
COI 76 
END FOR 

41* 


4 2* 



C Hur THI'UST OH CURVES 
J:TH0''r(KVll 

IF (PN'lMI) .EO 4 C> GO TO 739 
TPlrC.U 
00 723 icl.J 

TP1=T!!I • THRUST(KVl,K)»PWR(I>«*IH-H 
U;Tt.OCr(hV2l 
TP2:j. J 
DO 7J1 K:l.J 

TP2:^TR2 * THR UST ( K V2 ,K )«P WR ( 11 X-X I K- 1» 

ERPCLATF WITH PRESSURE I 

DELTP = ALS(TPRESS«KV 1 )-TPRESSIKV 2 » ) 
TfMI)=TP 2 +(TRl-TR 2 l«( (PAMP-TPRESS (KV 2 JJ/OEtTP > 
00 Tj 7 CV 
T P m : " . C 

cr-, riruf 
COi.TI 
P E T UR M 
END 


o Q 


Q 

s 


tJ 

o 

o 


F m 


COOODO 

LOOCOC 

CDODOr 

cococr 

cococc 

LODOOn 

eCCODD 

LOODOr 

uorcce 

Locopr 

cocoon 

cnooco 

utiocnn 

tOLOOO 

lOCOOO 

LOPOOO 

cnf-cDC 

coEocn 

cncccT 
uOGocn 
COOQl 5 
COOC17 
C0CC21 
C0CC2’ 
I.nc025 
C0CD2'' 
COCD33 
COOC23 
C0C0S3 
COCC53 
COCOkS 
L'nOOST 
0000,61 
CnoC62 
uC!CG6? 
C00065 
CDOC67 
EnC071 
CDOIOS 
COCIOE 
Lnci2« 
000127 
tOCl 35 
DOC I 35 
CDCl 25 
C0C153 
UC31S7 
C0Q166 
000170 
LOCI 73 
cool 73 
000173 
1.002211 







ssatsnce 




5F0P,:: H.TITLE/Vt,H.TlTLr/V( 

FOR £JC3-a£/C6/79-18:ll:Sl f2,J 


SOCROUTINE 


TITLE 

TITLE2 


ENTRY 

ENTRY 


POINT 

POINT 


000067 

000072 


STOlTflGE USED: CCOECIJ CDCC75; OATAIOI 0C0246; BLANK COBHONcei OOOODO 
COHNON lLOCKS: 


coo 3 

t U”5 

0DG0C2 





0 C34 

CONF 

3CCC14 





COOS 

FATE S 

000132 





0006 

TIMES 

PCC3‘4 3 





C"07 

lAORAY 

0C2 116 





C-’ID 

1 RAJ 

CEO 137 





con 

NAMES 

0Gu424 





EXTCPHAL 

. REFERENCES (BLOCK, NAME) 



0012 

i.k'nuii 






D'^12 

NI01$ 






L014 

M021 






C 01 5 

NERR35 






STORAGE 

ASSIGNMENT (BLOCK, TYPE 

, RELATIVE LOCATION, 

CPOl 

cdocoe 

121G 

OOCl 

OC0026 

133G 

ncci 

0 000 

C30174 

40LF 

con 

000332 

ACTNAM 

0005 

00-5 

L00072 

CEF 

0 036 

0QD031 

t CTRAN 

0006 

COOP 1 

C33C0U 

I 

D'-n 

QQ0134 

lACTUO 

00C4 

com 

0CQ136 

lETP 

o'^n 

030217 

ILOAD 

ocio 

con 

L00215 

ISPED 

0"06 

ooncoo 

ISTART 

0006 

L306 

L00C12 

TUN IT 

0011 

Q00254 

IVEM 

0QO6 

U036 

CC0042 

LUNIT 

3 TO 3 

OOOCOl 

NA 

oon 

CCCJ6 I 

CCQ0O3 

NCL 

0"''6 I 

003010 

NOL? 

0034 

C^C6 

ECOo37 

NU 

G )C4 

000013 

P 

Dons 

0 004 

LCOuCe 

TF 

COOo 

00002S 

TPCALL 

C0C6 

C006 

C00C35 

XT PNC 




1 


000042 

000130 

000013 

0QCCQ3 

OQCOQO 

0C0040 

COC007 

000000 

0GCC07 

CODOOO 

CDOCll 


142G 

ALT 

FREE 

lAPUSD 

INDEX 

ISTAT 

lUFLAG 

NAME 

NOE 

RATE 

TTIHC 


COOO 

CODS 

roo6 

C006 

roon 

C006 

roc6 
C0Q3 
C006 
C0D4 1 
0007 


colol 

CC1D3 

001C3 

on 104 

00134 

CC105 

001C6 

L0106 

CD107 

uno/ 


i« 

2« 
2v 
2 > 
2« 
2 » 
2Y 


PAR 


END 

LtLl 


subroutine TITLE 
If'CLU'^C PAR, LIST 
PPOC 

PAR/IlfT( R HNA=29,NR:34‘HNAT7,MNL:46,NG=MNL + 13,HHU=4,H5VS9 
» ,tlVCOIF = 10 

parameter MNSPOS =4 ,HNE0NS ::5,MN0CF :10,MNTEQN=5 t«TN0CF:10 
C'iMUOf</NUHS/NL ,NA 

TI'CL'J''E CPLl.LIST 
Fr’Of 


000001 

200F 

ooco 

000113 

3CCF 

000127 

CGLOAD 

0006 

000021 

CLNO 

000015 

FPNO 

COLS 

0O0C35 

HM 

0CC04 1 

rCARO 

00 C6 

CCOCOi 

lENC 

0CC237 

INJP? 

OOL6 

0CnCC6 

IFHASE 

OOMODl 

ISTOP 

0PC4 

000000 

ISYS 

C00036 

LPHASE 

C0C6 

0C0C34 

LTVPE 

COOQOD 

NL 

DO 11 

00021 2 

NMCOE 

DGF005 

NPLTS 

CDC6 

EC0CC4 

NPTF 

0CCC13 

STVLV 

C0C7 

CCOCOC 

T 

001750 

WPT 

OOlS 

room 

XMACH 


Q ^ 







* 




coooon 




Conoco 

LCCC30 


iMV=9 


COCC 

00 



^ r“ 

cncc 

CO 



cO "W 

P sH 


cooooo 

coCQOr 

Cpropn 

LOCUCO 

Eoooon 







Ai^vur. '^ v ftis^ n m iMATA m : •Wg’^TTTaRmy^^ 


.:f'iio 

UP in 

CC1112 

con: 

CC113 
CCllI 
CRii; 
cri m 
c'^m 

cri It 

C'" 11 6 

crnt 

CC 117 
CC125 
CO 12S 
cri 2 t 
Cni 25 
tri’c 
0" 12C 
C012U 
C0125 
C012C 
rri25 

or i 2 o 

C0127 

ccnc 

cri2i 
Lri37 
C0137 
CD137 
CO I >7 
cru37 
cri37 
tC'137 
CP1'*C) 
10146 
CP146 
roi4t 
CCU46 
CC147 
CPISO 
erir>i 
£f)C FOR 


;•> 

3 * 

3v 

3* 

3* 
3« 
3» 
3-)> 
3<= 
34 
34 
4 4 
54 
64 
74 
64 
94 
iL4 

114 
124 
134 
144 
154 
l 6 > 
174 
1C4 
194 
204 
214 
224 
<■34 
244 
254 
2t4 
<.74 
2 C 4 
294 
5 Cv 
314 
324 
334 



300 


4 C 0 


(V C - u 

RO Torv 
CMPY TITLE’ 
WPITL{7,3C0| ll,lzl,31 
f 0''MAT(lhl,55X,* MISSI 
43(11X,.’(1PU NO ‘,I2,11X 
43 ( • foil OCR TA 


1 - 1,31 

MISSION PROFILES - PART 2 ’ 
,I 2 , 11 X>,/, 3 X,*TIME*,T 16 ,' 

I LR TANK EXHAUST '1,7 

(UOH/ PULSE 


IFILES - PART 2 ’,//,T 24 , 
:,*TIME*,T 16 ,’AMB*,T 24 , 
EXHAUST ') ,/,T 16 . ‘PRESS* 
THRUST ‘ 1 ,/, 3 X,* (HRSI • , 

« I r c k • k j 


(LOFl ‘),/t 


•,T24.- 
,T16,* IPSIA I 


= 1 , 3 ) 

•MISSION PROFILES - PART Z’,///, 
ACH',T 23 ,’CrLOAD‘.T 33 , 3 (‘SYS ’, 11 , 5 X 1 ,/, 
N 0 ‘,T 33,3 (‘FNEPGYSrX J 
3 X 1,/, 132 HH 4 ) ) 


coocco 

cococo 

LOOOQO 

uooooo 

LOCOOP 

lOCOOO 

COCOCP 

Loocon 

cocoon 

tOOOPC 
1 . 3 CD 0 P 
CCCPCQ 
LOCCOO 
CQGD 13 
LD 00 I 3 
L 00013 
COCCI 3 
LOr'Ol 3 
C.CQO 1 3 
COOOl’ 
L 00013 
CDCDl’ 
COOC 13 
lGCO 1 3 
corni 4 
CCCOl 7 
CDCOl 7 
L 0 P 03 '' 
LnC 033 
C 00033 
C 0 C 033 

cone 3 3 

0 R 003 X 

COCC 33 
CRR 033 
CC 1 C 047 
CDG 047 
L 00047 
CCuC 47 
C 0 C 047 
CO 00 SO 
600074 





uCLT. 

CLTrf 

cnrpD 

DPCOG 

cncco 
cnr,cc- 
crcpL 
ccrec 
r''c cu 
CPOOC 


END DLT. 


H.r'APSYM/V6 

rL71-3 v,?/C6/79 18{51:57 <6«) 


G02 IN H.f'AIN/V6tH.TLlNE/V6,H.NTADS 

092 IN H.TANh/V6,H,fSCSUR 

0"'2 SCO 

002 IN H.DLASE/V6,H.SYSDAT/V6 

•> c r Ciit 

0a‘ IN H.AC’TrjAT/V6t' •^HASE/y6iH,HINCE/V6tH.F0WER/V6,I 

CC2 IN' H. TITLE/ Vo. H.TCOMP/yfc 


" P t CK H 

nikPUR 5 tR2 9L72-6 02/C6/79 16:11:58 

END PACK. TEXT-01. T0C = 3,SYll = 112,REU = 75,ABS-2 


•SAPUM/V6 





ilrAP, 5 H,l!APS^H/v6,M,HYrPA /V6 
MAP2LR2 RL71-? 32/r6/73 18:12:10 (fc,J 
I . bCG A ’ 

7. in H.nAlN/V6,H.TLrt.E/V6,H.NTftBl 

3. • in H. TANh/U6,H.PKFSJfi 

A . see 


S. I'l «. Di'ASr/V6,H,SySDAT/V6 

(j. sre L 4 .C 

7. in H.ACTLAT/Ve ,H.P|IASC/V6,H,HIhGE/V6, 

e. in h. T1TLE/V6 ,H.TCOfP/V6 


H,P0WER/V6,H.SAPUH/V6 


ADDRESS UIHITS- DClcm 025375 
CAcnoG ns73:i 
SfGMEMT LOAl TABLE Pd-TD-D Cd0013 

inOTPrCT LOAD TALUC DdOClM CdOllS 

START me ADDRESS 01^033 


10494 IBANR WORDS OECIHAL 
7874 D6ANK WORDS DECIHAL 


SEGtiENT A 


OOIQDO C14225 Q4DU6 053663 


ARK6'0T/FOR-E3 
AF TVU /FOR -E2 
6CNVTi/F0K66 
APf CCS 

AFTChS/F0R-E2 
APLCVT/rCR-E J 
NCLC.6S/rOR-t3 
AS„TC £/rOr 69 
r.Wt'LhS /FPR6C 
A'’ SFLi/rOR-E3 
NUPEA 1/rORLt 
NRELK S/F0P-L2 
MMA’/FCR-CT 
MEPT'/F0PE3-C0RR 
AOTIAS/F0R-E3 
ACUTI /F0F-E3-UPD 
NFHTS/FCP-L2 
MOERS/FOR-E 3 
NFCHKl/FOK-EI 

FPRCOPi/FCRf TN 
AFRCCt'{/FCR-TE3 
FORVeOMS/FOP -TL5 
LPU'' /SYS72-6 
rrivlJ? /FOR-E 3 
I,' 1CP5/F0RL 3-JSC 
ALEUT ’/FCP-E3 
AU't F i /F OA-E 2 
ATALir l/rCh-E2 
Mtfci /Fr,P-L3 

f 01 ur T/rOK'L 6 
NT [VTPS/FORE 3-RLIt 
IF'L t / SVS64 


$111 

onloDO 

001063 

S( 2) 

040 116 

040127 


i( 1 1 

jP1064 

001106 





S( 1) 

CD! 107 

QC133Q 

1(2 1 

040130 

040224 





1(2 1 

04Q225 

042452 


S ( 1 ) 

OGl 331 

001613 

1(2) 

042453 

042466 


S ( 1 ) 

• C C 1 6 1 4 

CC1744 

1(2) 

042467 

04 2544 


S( 11 

CCl 74S 

002203 

1(2) 

042S45 

042572 


S( 1 » 

r D'20 J 

002227 



s n 1 

CE.723D 

002 34 1 





Sin 

GD2342 

Cl'32 376 





s< u 

DC2 377 

CC2432 





S t 1 1 

UC?433 

C0245G 





S (1 » 

OC2456 

002713 

1(2) 

042573 

042574 


s U ) 

DC2 714 

004 310 

1(2) 

042575 

042630 


S( 11 

004311 

004605 

1(2) 

042631 

042634 


S( 1) 

004606 

DC6.'21 

1(2 ) 

042635 

04 26 76 


S ( 1 1 

0C( 322 

QC7274 

1(2) 

042677 

04 7753 


1(1) 

CD7205 

007424 

1(21 

Q427S4 

043173 

0 0 

S( 1) 

007425 

0 10416 

1(2) 

04 3124 

04''274 

S ( 3 ) 

010417 

010417 

I (4 1 

043275 

C4 3346 

'IS3 

$ ( 1 ) 



1(21 

043347 

043354 

"0 ^ 

C10420 

010477 

5(2) 

043355 

P43370 




1(2) 

043371 

043400 

0 Si 

1(11 

0 1 G50Q 

011041 

1(2) 

D434Q1 

C43S6C 

0 a 

1(1) 

011142 

011141 

1(2) 

C43561 

04 ■'632 

1(1) 

'311142 

0 12220 

1(2) 

043633 

04 •'670 

CL 

pa 

1(11 

01:221 

012426 

1(2) 

043C7I 

P4 37 IC 

1(1) 

L, 1 2 4 2 7 

012466 

1(7) 

043711 

''4 37 11 

1(1) 

U12467 

012645 

1(2 ) 

043712 

044031 

S ( 1 ) 

J12646 

012706 • 


1(1) 

1(11 

012707 
21 •’764 

012763 
01 5T ’P 

1(2) 

044032 

044047 




Jtu ,» -if.vf C.1 


•STtiWf 5» •«rtJ-C'«W»»'tf -er^RVrf ^^ s«>» ' J.I ^■ 




L“Mrti x< coi.''C'<rLOC k ) 




OAKDSD 

G4521C 

i-«cs ( cor^cM LOCK j 




01)521 1 

045556 

CP /10( CCf‘ Ot ( LOCh > 




01)5557 

045770 

Tf'PST (COMf^Cf c,LOCK 1 




Qi)S771 

P46076 

SFCC( CCfi'lOLrLOCrt) 




Qi)6f'77 

047522 

FUCL 1 ^o^TO«r lock ) 




01)7523 

04 7541 

fcO!>p (ccr.rot.i lock ) 




047D1)2 

C47621 

CCCFf (C3!-| CI.I LlCk I 




CD7622 

05''! 1 2 

ci'irt r< rcT.i.f'.'’,LCCK j 




012113 

05"2C5 

N* nr s icrt'i'i.’.. Li.rt' » 




Cf 0206 

0506 31 

TPtJ 1 COPfCM LOCK ) 




050632 

0 5 7 7 7 R 

TATPi Y{COI.Mr'.f>LCCK ) 




050771 

053076 

TIME’S (Commcl; lock ) 




0S3C77 

05 31 4 1 

PA TFS (COtU'Ct.LLlCh ) 




053142 

053273 

CC t.F < '■CrJlCLLLOCK 1 




053274 

P5 3307 

L'jfS ( rcnncf.t LOCK ) 




Q5311C 

C 5 33 1 1 

l-LA'h iCOt’Hot (CCf(’U\£;LOCK J 





Kf IN/Vt 

4(1) 

0130J3 01321') 

1(0) 

053312 

057361 


4(2) 

NUf.S 

1(2) 

BLAt.KlCOMMOM 


I(&) 

RATES 

1(1) ) 

CONF 



1C ?) 

r AWRAr 

1(6 1 

TIMES 



1 (TU ) 

MAKES 

KCIO) 

TPAJ 



1 ( :i: ) 

COEFF 

1(012) 

OUTPUT 



T ( Cl 5 ) 

FDFL 

1 (C 11) ) 

PCOWP 



1(117) 

ThFST 

1(016) 

Sf CC 


TL 1 f/L /V 6 

1(1) 

C13215 01*)1D7 

1(C) 

055362 

0S3556 


1(3) 

MUMS 

1(2 ) 

DLAMKICOHMON 


$ (5) 

SATES 

1(U) 

CCMF 



5(7) 

T ARRAY 

1(6) 

T IKES 



1(011) 

MAKES 

1(010 

TRA J 



1(013) 

U'(jS 

1 (D12) 

GRAD 





I (Oil)) 

U'MTRX 


fvT A D 1 



1(2) 

053557 

053615 

TAMK/ V6 

1(1) 

01')11D 01()165 

1(0) 

0S3616 

053630 




1(2) 

BLAMKlCOMMON 

PRE5UR 

1(1) 

011)166 0I«l225 

i (O 

053631 

053663 




1(2 1 

BLAHKSCOHMOM 



SECMEtiT 

B >' 

014226 017404 

053 

£64 055573 


FCLLOWS 

SCGHEMT A 



D0ASE/V6 


1(1) 

014226 

DlSoSO 

1(0) 

053664 054137 



1(3) 

NUHS 


1(2) 

BLANKICOHMOM 



1(5) 

RATES 


1(4 ) 

COMF 



1(7) 

T ARRAY 


1 (6 ) 

TIMES 



S(QII) 

MAKES 


I (CIO) 

TSA J 



1(013) 

LK6S 


1(012) 

GRAD 



1(015) 

OUTPUT 


1(014) 

LHKTRX 



1(217) 

f'CCKP 


1 (016) 

COLTF 



1(021) 

5FCC 


$ (P20) 

F(JEL 

SYS1TAT/V6 


1(1) 

015651 

017404 

1 (C22) 
1(0) 

TURST 

054140 C55573 



1 ( 3) 

I'.UUS 


1(2) 

riLAA'KlCOHMON 



1(5) 

RATFS 


1(4) 

CONF 



1(7) 

(ARRAY 


1(6) 

TIMES 



1(011) 

hi )’ES 


1(010 

TRA J 



Sll-S 


Kf'lJJ LKIjS 
tfOiS) OUTPUT 
$(01/) PLGMP 

s(C2i» srcc 


StOT2l 
* jn I** 1 
1 IC16I 
$ < 020 ) 
1 ( 022 ) 


GPAD 

LPMTRX 

COEFF 

FUEL 

THRST 


SEGMENT C« 014226 02D375 053664 C57301 

HAS THF SAME STARTING ADDRESS AS SEGMENT B 


LFXP5 1/FORe.b 
KPKSP$/F0R-£3 
NFOUT ?/F0R-E3 
Nf XP9S/F0R68 
SCRT1/F0rS5 
ATANS./F OR59 
TAi.CC TAM/F0R59 
^FI^t I/FGR-E3 
Sir.CO S1./FCR-E3 
t.EXPe I/F0R-E3 
AC TUA T/V6 


phase /V6 


. HINGE /V6 


POWER /V6 


SAPUM/W6 


ten 

014226 

014313 

5(2) 

OS3664 053673 

3.(1) 

014314 

015047 

5(2) 

053674 053721 

T( 1) 

L.1505D 

015467 

5(2) 

053722 CS3743 

HI) 

C1S470 

015612 

5(2 ) 

053744 D53764 

S ( 1 > 

015613 

015653 

5(2 ) 

053765 053776 

3.(1) 

r. 106S4 

C 16(157 

H2) 

053777 064C30 

? < 1 ) 

016060 

016255 

5(2) 

0E4C31 054051 

HI) 

016256 

C16703 

5(2) 

054053 054135 

HI) 

G167L4 

017240 

5(2) 

054136 D5416C 

HI) 

017041 

017236 

5(2) 

054161 054232 

HI) 

C17237 

020030 

5(0) 

054233 054313 

S< 3) 

Niins 


5(2) 

BLANK 5 COM HON 

H S) 

RATES 


5(4) 

CONF 

S t 7 ) 

TARRAY 


5(6) 

TIMES 

t)ljll) 

NAMES 


5(010) 

TRAJ 

H013) 

LhGS 


$ (012) 

GRAD 




5(014) 

LMMTRX 

X( 1 ) 

020031 

021273 

5(0) 

054314 055515 

t( 3) 

NUNS 


5(2) 

BLANK5C0HMON 

1(5) 

RATES 


5(4) 

CONF 

$( 7) 

r ARRAY 


5(6) 

TIMES 

f. ( C 1 1 ) 

N.‘.HES 


5(010) 

TRAJ 

■5(1) 

021274 

022430 

5(0) 

055516 056002 

H 3) 

NUMS 


4(2 ) 

BLAN'KSCOMHON 

H S) 

Rf TES 


5 (4 ) 

CONF 

5(7) 

T/RPAY 


5(6) 

TIMES 

5(011 ) 

names 


5(010) 

TRAJ 

H013 ) 

LKCS 


5(012) 

GPAC 




5(014) 

LMMTRX 

5(1) 

022431 

0-23210 

5 (0 ) 

0560G3 056177 

5(3) 

NUNS 


5(2) 

BLANK5CCMM0N 

5(5) 

RATES 


5(4) 

CONF 

5(7) 

T/URAV 


5(6) 

TDICS 

1(011 1 

NAMES 


3(010) 

TRAJ 

5(013 ) 

LKCS 


5(012) 

GRAD 

5(015) 

OUTPUT 


5(014) 

LMMTRX 

5(017) 

PCOMP 


5(016) 

COEFF 

5(021) 

SFCC 


5 (020) 

FUEL 




5(022 ) 

THRST 

5(1) 

0,-3211 

025053 

5 (0 ) 

C56200 056754 

5(3) 

NUI S 


1(2) 

BLA)'K5COHMON 

5( S) 

RATES 


5(4) 

CONF 

5(7) 

TARRAY 


1(6) 

TIKES 

5 t Cll ) 

NAMES 


5 tnioi 

TPA J 

5tU!3) 

L«0S 


HD12> 

OPAC 

5(015) 

OUTPUT 


H014 ) 

LMMTRX 

5(017) 

Pf OMR 


HOl(p) 

COEFF 


Si 

O Si 

o E 

r* 

O :® 
c: E 
O’ 
p tn 
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I r J2i ) 

srcc 


$ (020) 
i(0Z2l 


TITLE /V6 

SCI) 

025059 

025150 

£ (0 ) 

056755 057222 


£ ( 3) 

NOHS 


S (2 ) 

OLANKSCOHMON 

• 

. S (5 ) 

KATES 


£ (4 ) 

CONF 


5( 7) 

T ARRAY 


£(6) 

TIMES 


S (Pll ) 

NAMES 


£ (Old 

TPA J 

TC0HP/V6 

$ ( U 

A-^SISI 

025375 

£(0> 

GS7223 057301 


1(3) 

NU!'S 


£ (2 ) 

BLANHSCOHMON 


£< SI 

CCCFf 


£(4> 

OUTPUT 


1(71 

Fl’CL 


£ (6 I 

PCOMP 


£ ( 311 I 

THRST 


£(0101 

Spec 


IPANK DRAWN TO SCALC: IDT WORDS DECIMAL PER DA<:H 

A IS792 I 

B» (1647) 
C« (<I712) 


DBANK DRAWN TO SCALE: 80 WORDS DECIMAL PER DASH 

A (599D) 


SYS«>!>RLies. LEVEL 72-3 
END HAP 


D« (9631 

C* (1806) 




SBRKPT PRINTl 



5* ® SAMPLE IMPUT/OUTP-UT 


Figure 

11 

contains 

Figure 

12 

contains 

Figure 

13 

contains 

Figure 

14 

contains 


a sample input data deck, 
a sample Hydraulic .Load Data Report, 
a sample timeline profile, 
a sample APU fuel usage siammary. 
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SAMPLE INPUT DATA DECK 


660 —a 166667 

661 -.001 
662 0.0 
665 ,218333 
781 1. 

999 

684 2. 

685 14, 

690 2. 

691 14, 

696 2, 

697 14. 

661 -.0007 
999 

685 6, 

691 6o 
697 6. 

661 0,0 
999 

662 1. 

664 2- 

251 TIME 

252 GIMPRl 

253 GIMYRl 

255 GIMPR2 

256 GIMYR2 

258 GIMPR3 

259 GIMYR3 
321 ALT 

323 THROTl 

324 THR0T2 

325 THR0T3 
661 0,0001 
999 

684 0, 

690 0. 

696 0. 

661 .135 
999 

684 2. 

685 7. 

690 2, 

691 7. 

696 2, 

697 7, 

661 .135416 
999 

685 13- 
691 13. 

697 13. 

661 ,135555 
999 

684 0, 

690 0. 

696 0. 

661 .218333 

999 

999 

660 162.71777 

661 162.85110 


START PRELAUNCH AT T=-. 166667 

RESTART AT T=-,001 

INPUT TYPE = CARDS ONLY 

STOP SIMULATION AT T-=. 218333 

DATA TO BE AVERAGED OVER 1 SEC INTERVALS 

ADD ENGINE CONTROLLER FLOW RATES 
OF 14 GPM 


RESTART AT T=-.0007 

RESET ENGINE CONTROLLER FLOW RATES 
TO 6 GPM 

RESTART AT T=C 

INPUT TYPE = SSFS TAPE 
PHASE = ASCENT 

symbolic NAMES ON SSFS INPUT TAPES 


RESTART AT T^C.OOOl 

STOP ADDING ENGINE CONTROLLER FLOW RATES 

RESTART AT T=.135 

ADC ENGINE CONTROLLER FLOW RATES 
OF 7 GPM 


RESTART AT T=. 135416 

RESET ENGINE CONTROLLER FLOW RATES 
TO 13 GPM 

RESTART AT .135555 

STOP ADDING ENGINE CONTROLLER FLOW RATES 


RESTART AT T=. 218333 
STOP SIMULATION 

START ON-ORBIT CKOUT AT T=162. 71777 
RESTART AT T=162, 85110 


figure 11 


5-118 



665 162.85110 

662 3. 

663 4. 

664 4 
999 
999 

660 163.21777 

661 163.8 

662 4. 

663 7. 

664 6- 

665 163.8 
999 

EOF 


STOP SIMULATION AT T=162. 85110 
INPUT TYPE = BINARY TAPE 

INPUT UNIT = A 

PHASE = ON-OREIT CKOUT 

STOP SIMULATION 

START ENTRY AT T=163. 21777 

RESTART AT T=163.8 

INPUT TYPE = BLOCKED BINARY TAPE 

INPUT UNIT = 7 

PHASE = entry WITH LANDING 

STOP SIMULATION AT T=163.8 


=00R quality 


of ri 


FIGURE 11 (continued) 



SAMPLE HYDRAULIC LOAD DATA REPORT 


ROCKMEU SIZING (tISSIOR - SVS 3 FAtl *T HPS PURGE DATE 111175 PAGE 60 

t««t HYD LOAD DATA tt.. 


NO LOAD KANE 

ACT 

SI 

S2 

FLOR CFAP 
CGPH/OEC/SEC) 

POKER 

SPOOL 

UG a 

3000 

PS! 

(GPKl 

SERVO 

valve 

L<G 2 

3000 

ps: 

(GPtt> 

ISO - 

DUMP 

VALVE 

ACT 

NO 

BYPASS 

VALVE 

BYPASS 

FLOK 

<GPH> 

1 SSNE 1 PITCH 

1 

2 

3 

3.338 

1.200 

.300 

1 

1 

0 

.00 

2 SSKE 1 YAK 

1 

3 

2 

2.623 

1.200 

300 

1 

2 

0 

.00 

3 SSNE 1 CNTRL 

1 

0 

0 

1.G00 

.000 

.000 

1 

3 

1 

.15 

A SSNE 2 PITCH 

2 

1 

3 

2.623 

1.200 

.300 

1 

4 

0 

.00 

5 SSKE 2 YAU 

2 

3 

1 

2.023 

1 .200 

.300 

1 

s 

0 

.00 

6 SSNE 2 CNTRL 

2 

0 

0 

1.COO 

,000 

.000 

1 

6 

2 

.15 

7 SSNE 3 pitch 

3 

1 

2 

2.623 

1.200 

.300 

1 

7 

0 

.00 

a SS»E 3 YAU 

3 

2 

1 

2.623 

1.200 

.300 

1 

a 

0 

.00 

9 SSNE 3 CNTRL 

3 

0 

0 

1.000 

.000 

.ooo 

1 

9 

3 

.15 

10 RUDDER HTR 1 

1 

0 

0 

.6S5 

.193 

.000 

0 

10 

0 

.00 

11 RUDDER NTR 2 

2 

0 

0 

.685 

.193 

.000 

0 

to 

0 

.00 

12 RUDDER HTR 3 

3 

0 

0 

.685 

193 

.000 

0 

to 

0 

..00 

13 RUDDER SERVO 

3 

2 

1 

.000 

.000 

,727 

0 

to 

0 

.00 

U SB HTR 1 

1 

0 

0 

1.0U OPEN 
1.041 CLOSE 

.193 

• OOO 

0 

11 

-0 

,00 

IS SB NTR 2 

2 

0 

0 

l.OU OPER 
1.041 CLOSE 

.193 

.000 

0 

11 

0 

.00 

16 SB NTR 3 

3 

0 

0 

1.D14 OPEN 
1.041 CLOSE 

.193 

.000 

0 

11 

0 

.00 

17 se SERVO 

3 

2 

1 

.000 

,000 

.727 

0 

11 

0 

.00 

18 LO ElEVON 

3 

2 

1 

.719 

127 

.727 

0 

12 

0 

.00 

19 LI ELEVON 

2 

1 

3 

1.493 

.265 

.727 

0 

IS 

0 

.00 

20 RO ELEVON 

\ 

2 

3 

.719 

.127 

.727 

0 

14 

0 

.00 

21 RI ELEVON 

3 

1 

2 

1,693 

.265 

.727 

0 

15 

0 

.00 


FIGURE i-2 


5-120 


SAMPLE TIMELINE PROFILE 



ROCckELI StZtNC KI5$tON - 

SYS 3 FAIL AT KPS PURGE 

date 

111175 

PAGE 

62 








SYSTEM 1 




SYSTEM 

1 2 




SYSTEM 

1 3 




TIKE 

8LT 

Srs 

4PU 

total 

«4X 

SYS 

APU 

APU 

total 

MAX 

SYS 

APU 

APU 

TOTAL 

RAX 

SYS 

AP 

(KftS) 

(FT) 

CQ»F 

SPEED 

ELOU 

RATE 

POWER 

FUEL 

SPEED 

FLOU 

RATE 

POKER 

FUEL 

speed 

FLOU 

RATE 

POUER 

FU 



CODE 

X 

RATE 

NRHG 

ROHTS 

REH 

t 

RATE 

URKG 

ROHTS 

REH 

z 

RATE 

URKC 

RQKTS 

RE 





(GPH> 

flAG 

(HP) 

ciesi 


(GPU) 

FLAG 

(HP) 

ues> 


LGPH) 

FLAG 

(HP) 

(L 

-.16647 

0. 

1 

100 

6.24 


22,32 

295.00 

100 

6.36 


22.54 

295.00 

100 

8.67 


26.64 

295 

-.0JJ33 

0. 

1 

100 

6.24 


22.32 

282.07 

100 

6.36 


22.54 

281.97 

100 

8.67 


26.64 

279 

-.03333 

0. 

1 

ICO 

6.82 


23.36 

274.32 

100 

6.58 


22.93 

274.15 

100 

8.89 


27.04 

270 

-.03194 

0. 

1 

100 

6.82 

1 

23.36 

274.09 

100 

6.58 


22.93 

273.92 

100 

8.89 


27.04 

270 

-.00833 

0, 

1 

110 

6.24 


23.32 

270.28 

110 

6.36 


23.53 

270.17 

110 

8.67 


27.67 

266 

-.00094 

0. 

1 

110 

22.94 


53.43 

269.09 

110 

21.65 


51.09 

268.97 

110 

23.25 


53.99 

264 

-,00066 

0. 

1 

110 

10.44 


30.86 

269.00 

110 

9.15 


28.53 

268.88 

110 

10.75 


31.41 

264 

-.00038 

0. 

1 

110 

14,94 


38.95 

268.94 

110 

13.65 


36.64 

268.83 

no 

15.25 


39.50 

264 

-.00003 

0. 

1 

110 

46.05 


96.31 

268.85 

110 

62.42 


128.18 

268,75 

110 

64.75 


132.86 

264 

.00000 

0. 

1 

110 

46.05 


96.31 

268.83 

110 

62.42 


128.18 

268 72 

110 

64.73 


132.86 

264 

.00006 

126. 

1 

110 

31 63 


69.24 

268. 80 

110 

51,79 


107.34 

268.68 

110 

64.73 


132.86 

264 

.00008 

168. 

1 

110 

30.58 


67.31 

268.79 

110 

42.61 


89.76 

268.66 

110 

44.21 


92.80 

264 

.00014 

294. 

t 

110 

30.58 


67.31 

268.77 

110 

20 00 


48,11 

268.63 

110 

21,60 


51,01 

264 

.00042 

882. 

1 

110 

24.58 


56.40 

268 65 

110 

U 00 


37.28 

268.55 

no 

15.60 


40.13 

264 

.00167 

3507. 

1 

110 

16.24 


41.26 

268.22 

110 

9.54 


29.24 

268.24 

110 

11,14 


32.12 

264 

.00167 

3507. 

1 

110 

39.00 


82.94 

268.22 

110 

31,45 


68 90 

268.24 

no 

33,76 


73,15 

264 

.00194 

4074. 

1 

110 

9.49 


29.14 

268.08 

no 

9.02 


28 30 

268.13 

110 

10.62 


31.18 

263 

.00444 

9324. 

1 

110 

35.12 


75.68 

267.60 

no 

29 22 


64.81 

267.66 

no 

30.82 


67.74 

263 

.00472 

9912. 

1 

110 

20.10 


48.28 

267.47 

no 

17.94 


44.33 

267.55 

no 

19.54 


47.26 

263 

.00300 

10'. 9. 

1 

110 

20.10 


48 28 

267.39 

110 

17.94 


44.33 

267.48 

no 

19, '4 


47.26 

263 

.01111 

23532. 

1 

110 

11.05 


31 .94 

265.58 

no 

9.11 


29.71 

265.80 

no 

11.84 


33.38 

261 

.01194 

25675. 

1 

110 

18,91 


46.12 

265. A1 

110 

’0.56 


49,12 

265-64 

no 

22.60 


32.80 

261 

.01300 

31501 . 

1 

110 

11.05 


31 .94 

264.56 

no 

9,81 


29.71 

264.74 

no 

11.84 


33.38 

260 

.01667 

35025. 

1 

no 

11.03 


51 .94 

264 23 

110 

9.81 


29.71 

264.43 

^10 

11.54 


33.38 

259 

.019^4 

52357. 

t 

no 

n.34 


39.66 

263.68 

no 

13.22 


35,87 

263,91 

110 

15,25 


39,50 

259 

.02028 

57613. 

1 

110 

42.35 


89.27 

263 48 

110 

31 .05 


68.17 

263.73 

no 

32.65 


71.12 

259 

.02083 

61034 

1 

110 

14.90 


38.89 

263.20 

110 

13.22 


25,87 

263.52 

110 

14.82 


38.73 

258 

.03111 

125377, 

1 

no 

4.23 


26.88 

260.81 

no 

7.97 


26.42 

261.29 

no 

9.57 


29.29 

256 

.03500 

149717. 

1 

110 

39.02 


82.96 

260.17 

no 

56 42 


116.31 

260.66 

110 

58.73 


120.84 

255 

.03327 

151407. 

1 

110 

19.64 


47.44 

260 04 

no 

18.64 


45.62 

260.49 

no 

20.24 


48.54 

255 

.03533 

151782. 

1 

no 

48.89 


101 .74 

260.02 

no 

40.81 


86,34 

260.47 

no 

43,12 


96.71 

255 

.03611 

156662. 

1 

no 

19.45 


47.09 

259.57 

110 

21.00 


49.92 

260.09 

110 

22.60 


52.82 

255 

.03889 

174057. 

1 

100 

7.88 


25.24 

258.81 

too 

7.78 


25.07 

259.28 

100 

9.38 


27.92 

254 

•14319 

400000. 

1 

160 

7.88 


25.24 

236.43 

100 

7.78 


25.07 

237,04 

100 ^ 

9.38 


27 92 

229 

.18333 

400000 

1 

100 

55.83 


113.36 

236 41 

100 

47.43 


97.27 

237.02 

TOO 

49,74 


101.66 

229 

.18361 

400000. 

1 

100 

6.24 


22.32 

236.23 

too 

6.36 


22.54 

236.87 

100 

8.67 


26.64 

229 

.19^83 

400000. 

3 

100 

9.71 


28.51 

234.54 

100 

11.17 


31 11 

235 17 

100 

.00 


,00 

227 

.26667 

400000. 

27 

100 

.00 


.00 

222.24 

100 

.00 


.00 

221.82 

too 

• 00 


.00 

227 

.36666 

400000. 

27 

100 

.00 


.00 

222.24 

100 

.00 


.00 

221.82 

10O 

.00 


.00 

227 

•56943 

400000. 

9 

106 

14 64 


37.33 

222.24 

100 

.00 


.00 

221.82 

too 

.DO 


.00 

227 

.57221 

400000. 

3 

too 

6 86 


23.43 

221 62 

1O0 

8.32 


26.02 

221.82 

100 

.00 


.00 

227 

.57499 

400000. 

12 

ICO 

.31 


7.97 

221.22 

1O0 

14.64 


37.33 

221.38 

100 

.00 


.00 

227 

,57777 

400000 

3 

100 

6.86 


23-43 

221.07 

100 

8 32 


26,02 

220.76 

too 

.00 


.00 

227 














1 Al V 

vc 














OF 

POOR 





FIGURE iS 
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SAMPLE APU FUEL USAGE SUMMARY 


KOCiCUELl SI2IKQ MJSSIOh • Srs 3 FAIL AT HPS PURGE DATE 111175 PACE 73 



'APU FUEL 

usage Summary 


FUEL USED 

FUEL REMAINING 


CLBS) 

U8S> 

SYSTEM 1 

175.3079 

119.69Z1 

SYSTEM Z 
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APPENDIX A 

COMMON BLOCK DEFINITIONS 



Labeled 

Common 

Name 


Variable 

Name 


Type Units 


Description 


CONF 


ISYS(I) 


1 VALVE (I) 


lAPUSD(l) 


TP 

NOS 

P(I) 

IBYPV(I) 


I 


I 


I 


R HRS 

I 

R psi 

I 


Flag for system operational 
mode; I is the system number; 
(I - 1,3) 

- 1 Pressurized 

= 2 Depressurized 
= 3 Off 

Flag for valve status; I is 
the valve number; (l=l/3) 

= 1 Open 
= 2 Closed 

Flag for APU speed; I is the 
system number; I = 1,3 
= 1 100% Speed 
= 2 110% Speed 

Current time 

Number of systems pressurized 
System pressure; I is the 
system number; {1 = 1,3) 

Flag for bypass valve status; 
I is the bypass valve nximber; 
( I = 1,3) 

= 1 Open 

- 2 Closed 


GPM/DEG/SEC Flow gradient for positive 
angular rates with three 
systems pressurized; I is 
the hydraulic load number; 

(I = 1,37)) 


GRAD 


FGRADCI,!) 


R 



Labeled 

Coimnon Variable 


Natne 

Uame 


Units 

Description 


FGRAD(I,2) 

R 

GPM/DEG/SEC 

Flow gradient for negative 
angular rates with three 
systems pressurized; I is 
the hydraulic load number; 

(I = 1/37) 


FLGRAD(I) 

R 

GPM/DEG/SEC 

Flow gradient; I is the 
hydraulic load number; 

(I = 1/37) 

LKGS 

PSLKG(I) 

R 

GPM 

Power spool leakage at 
3000 psi; I is the hydraulic 
load number; (I = 1/37) 


SVLKG(I) 

R 

GPM 

servo valve leakage at 
3000 psi; I is the hydraulic 
load number; (I = 1,37) 


XPSLKG(I) 

R 

GPM 

Power spool leakage; I is 
the hydraulic load number 
(I = 1/37) 


XSVLKG(I) 

R 

GPM 

Servo valve leakage; I is 
the hydraulic load mmber 
(I = 1,37) 


BYFLOW (I) 

R 

GPM 

Bypass flow; 1 is the hydraulic 
load number (I = 1,37) 

LMMTRX 

LMM(1,I) 

I 


Active system number; I 
is the hydraulic load number 
(I = 1,37) 


LMM(2,I) 

I 


1st standby system niimber; I 
is the hydraulic load number 
(I = 1/37) 


LMM(3,I) 

I 


2nd standby system number; 

I is the hydraulic load number 
(I = 1/37) 


IPTRCI,J,K) 

I 


System configuration code;, 

I is the system 1 operational 
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Labeled 

Coinmon 

Name 


NAMES 


Variable 

Name Tybe Units 


IC0DE(I,J) 

ISOV(I) 

lASGN(l) 

IBYPSS(I) 

NAME (I, J) 

lACTNO(I) 

NMODE(I) 

ISP ED (I) 
ILOAD(I) 


I 

I 

I 

I 

A 

I 

A 

A % 

I 


A-3 


Description 

mode? J is the system 2 
operational mode; K is the 
system 3 operational mode; 

(I = 1,^; (J = 1,3); (K = 1,3) 
System number; I is the 
system configuration code; 

J is the hydraulic load 
niomber; (I = 1,27); (j = 1,37) 
Isolation valve nximber; 

I is the hydraulic load 
nxamber; (l = 1,37) 

System number; I is the 
hydraulic load number? 

(I = 1,37) 

Bypass valve number;.! is the 
hydraulic load number, 

(I = 1,37) 

Symbolic^i^e? J is the 
hydraulic load number; 

(I = 1,2); (J = 1,37) 

Actuator nximber; I is the 
hydraulic load number; 

(I = 1,37). 

Symbolic name; 1 is the 
operational mode number; 

(I = 1,3) 

APU speed ; I is the 
speed number; (I = 1,2) 
Hydraulic load number; 

I is the actuator number; 

(I = 1,23 ) 



Labeled 

Common 

Name 

OUTPUT 


RATES 


TARRAY 


Variable 


Name 

Type 

Units 

PLRT(I) 

R 

GPM 

TPLRT(I) 

R 

GPM 

PWR(I) 

R 

HP 

RATE (I) 

R 

DEG/SEC 

HM(I) 

R 

IN-LBS 

DEG (I) 

R 

DEG 

CGLOAD 

R 

G 

ALT 

R 

FT 

T(l) 

R 



WRT(l) 

R 

HRS 

WRT(I) 

R 

DEG/SEC 

WRT(I) 

R 


WRT(I) 

R 

IN-LBS 


A~4 


Descript.ion 

Flow rate; I is the 
hydraulic load number; 

(1 = 1,37) 

Flow rate; I is the system 
number; (I = 1,3) 

Horsepower; I is the system 
number; (I « 1,3) 

Angular rate; I is 'the 
actuator number; (I » 1,23) 
Hinge moment; I is the 
actuator nvutiber; (I = 1,23) 
Surface deflection; I is 
the actuator number; 

(I = 1,23) 

Vehicle load 
Altitude 

Definitions of variables 
stored in the array T can be 
found in Section 3.1.1 Card 
Input. The data number is 
the subscript for the array T 
Time 

Angular rates; I is the 
actuator nximber + 1; 

(1 = 2,16) 

Actuator operational flag; 

I is the actuator number + 1; 
(1 = 17,24) 

Hinge-moment; I is the 
actuator number + 24 ? 

(I = 24,47); 



Labeled 

Coitanon 

Name 


TIMES 


Variable 

Name Type Units 

WRT{I) R DEG 


WRT(71) 

WRT(72) 

WRT(I) 


R FT 

R G 

R % 


I START I 
ISTOP I 
lEND I 
NOL I 

INDEX (I) I 
lETP I 


Description 

Surface deflection? I is 
the actuator number + 47; 

(I = 48,70) 

Altitude 
Vehicle load 
Throttle setting? I is 
the engine number + 72? 

(l = 73,75) 

Start flag 
Stop flag 

End of mission flag 
Number of lines printed on 
page 

Word location for data on 
SSFS and SVDS tapes? 

I = 1,75 

End of tape flag 


TEAJ 



APPENDIX B 

SSFS AND SVDS TRAJECTORY TAPE 
FORMAT 



B.l SVDS INPUT TRAJECTORY TAPE FORMAT AND USAGE 

The symbolic names of the parameters contained on the tape 
and the names included in the timeline array must be identical. 
Also, the timeline array symbolic names must include the correct 
parameter n^lmbers associated with that name. 

a. The first record on the tape should contain the number of 
parameters and the symbolic names. The first word on 
this record must be a dummy word with the second word 
corresponding to the n\imber of parameters on the tape 
followed by the symbolic names. 

b. The second record should contain the first time point and 
all parameter values. The first two words of the second 
record should be diimmy words followed by the parameter 
values corresponding to the symbolic names on the first 
record. 

c. The suceeding records should contain a unique time point 
and associated parameter values. Again, each record 
should contain two dummy words at the beginning of the 
record . 

d. @EOF 

B.2 SSFS INPUT TRAJECTORY TAPE FORMAT AMD USAGE 

If the SSFS trajectory is created on a file and then copied 
to tape, the tape must be copied back to a temporary file 
with a @COPY,G command. The symbolic names of the parameters 
contained on the file (tape) and the names included in the 
timeline array must be identical. Also, timeline array symbolic 
names must include the correct parameter numbers associated 
with that name. 

a. The first record on the file (tape) must contain the number 
of parameters and the symbolic names . 
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b. The second record should contain the first time point and 
all parameter values associated with this time point. 

c. The succeeding records must contain a unique time point 
and associated parameter values. ' 

d. @EOF 
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